Need a function that re-arranges words(!)
Bruce Laidlaw
wbl at iprimus.com.au
Wed Nov 26 08:29:49 EST 2003
I run a mile from any maths, but I did something randomly and then
rejecting the result it I had it already. And it would give my students
something to watch for a minute! I didn't do globals either! I could
debug it easier this way. But it's not pretty! Oh, and it draws the line
at the joined words ("mycat fat") (or rather, I got tired :)) And it
can't distinguish between similar words "fat fate fatty"
on mouseup
put cd fld "data" & return into cd fld "display" -- put 3 or 4 words
into "data"
repeat
put any word of line 1 of cd fld "display" & " " after cd fld "display"
if number of words of last line of cd fld "display" = 1 then next repeat
cut last word of last line of cd fld "display"
put the clipboarddata into cd fld "trash"
if word 1 of cd fld "trash" is in last line of cd fld "display" then
put " " after cd fld "display"
next repeat
else
put the clipboarddata & " " after last line of cd fld "display"
if the number of words in last line of cd fld "display" = number
of words in line 1 of cd fld "display" then
repeat until offset(" ",last line of cd fld "display") = 0
delete char offset(" ",last line of cd fld "display") of last
line of cd fld "display"
end repeat
if last char of cd fld "display" is " " then delete last char of
cd fld "display"
cut last line of cd fld "display"
put clipboarddata into cd fld "trash"
if char 1 of cd fld "trash" = return then delete char 1 of cd
fld "trash"
if line 1 of cd fld "trash" is not among the lines of cd fld
"display" then put return & cd fld "trash" & return after cd fld "display"
else put return after cd fld "display"
end if
end if
if number of words in cd fld "data" is 3 then put 6 into maxy
if number of words in cd fld "data" is 4 then put 24 into maxy
if number of words in cd fld "data" is 5 then put 120 into maxy
if number of lines in cd fld "display" > maxy then
delete last line of cd fld "display"
sort cd fld "display"
exit to top
end if
end repeat
end mouseup
Bruce Laidlaw
Sydney, Australia
http://go.to/reading.writing/
>>-----Original Message-----
>>From: use-revolution-bounces at lists.runrev.com
>>[mailto:use-revolution-bounces at lists.runrev.com]On Behalf Of
>>valetia at mac.com
>>Sent: Monday, November 24, 2003 3:32 PM
>>To: How to use Revolution
>>Subject: Need a function that re-arranges words(!)
>>
>>
>>Hi all,
>>
>>Help! :) I've been trying to figure this out but it's been a mess, even
>>though I think it's probably an easy one.
>>
>>What I need is rev code that can do this:
>>
>>Given any phrase, e.g.: "my fat cat"
>>
>>Spit out all of the following (no need to be in this order):
>>
>>my fat cat
>>my cat fat
>>fat my cat
>>fat cat my
>>cat my fat
>>cat fat my
>>
>>myfat cat
>>my fatcat
>>myfatcat
>>
>>mycat fat
>>my catfat
>>mycatfat
>>
>>fatmy cat
>>fat mycat
>>fatmycat
>>
>>fatcat my
>>fat catmy
>>fatcatmy
>>
>>catmy fat
>>cat myfat
>>catmyfat
>>
>>catfat my
>>cat fatmy
>>catfatmy
>>
>>
>>Conditions:
>>
>>1. The input phrase can be *any* number of words (not just 3).
>>
>>2. Each line of the results must contain all the words within (no missing
>>words).
>>
>>Any takers? Thanks in advance! :)
>>
>>Valetia
>>
>>
>>
>>
>
>
More information about the use-livecode
mailing list