Need a function that re-arranges words(!)

Bruce Laidlaw wbl at iprimus.com.au
Wed Nov 26 07:29:49 CST 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