Re: Need a function that re-arranges words(!)

[Bruce Laidlaw]

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: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
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

   

 

_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution