LiveCode Forums.

Code: Select all

on mouseUp
  put the millisecs into m1; lock screen; lock messages
  put empty into fOUT; put empty into check
  put fld id 1008 into zxs; put fld id 1014 into SC1080
  repeat for each line K in SC1080
    repeat for each word L in K
      if L is in zxs then add 1 to check[K]
    end repeat
    if check[K] = 4 then put cr & (word 1 to 3 of K) after fOUT
  end repeat
  delete char 1 of fOUT; sort fOUT; put fOUT into fld id 1025
  unlock screen; unlock messages; put "c+h: " & (the millisecs -m1) into fld "info"
end mouseUp

Code: Select all

 
filter lines of field id 1014 with regex \
         pattern format("^(?:(?:%s)\\s){3}",replaceText(fld id 1008,return,"|")) \
         into fld "RegexRocks"

Code: Select all

on mouseUp
   local ml, R
   constant NumberOfTests = 5
   
   put fld id 1008 into random_12words // previously zxs
   put fld id 1014 into lines1080 // previously SC1080
   
   repeat for NumberOfTests
      put _timer200() into m1
      
      -- filter command with regex pattern
      put tdz1(random_12words, lines1080 ) into R2
      
      put "  tdz1: " & the millisecs -m1 after R
      put _timer200() into m1
      
      -- repeat loop with matchText() test
      put tdz2(random_12words, lines1080 ) into R3
      
      put "  tdz2: " & the millisecs -m1 after R
      put _timer200() into m1
      
      -- double repeat loop with 'is in' test
      put hh1(random_12words, lines1080 ) into R1
      
      put "   hh1: " & the millisecs -m1 after R
      put _timer200() into m1
      
      -- variant of double repeat loop with 'is in' test
      put hh2(random_12words, lines1080 ) into R4
      
      put "   hh2: " & the millisecs -m1 after R
      put cr after R
   end repeat
   
   put R
   
end mouseUp

function _timer200
   wait 200 milliseconds with messages
   return the milliseconds
end _timer200

Code: Select all

function hh1 random12, text1080
   repeat for each line K in text1080
      repeat for each line L in random12
         if L is in K then add 1 to check[K]
      end repeat
      if check[K] = 3 then put cr & (word 1 to 3 of K) after R
   end repeat
   delete char 1 of R
   return R
end hh1

Code: Select all

function hh2 random12, text1080
   repeat for each line K in text1080
      repeat for each word L in K
         if L is in random12 then add 1 to check[K]
      end repeat
      if check[K] = 4 then put cr & (word 1 to 3 of K) after R
   end repeat
   delete char 1 of R
   return R
end hh2

Code: Select all

function tdz1 random12, text1080
   filter lines of text1080 with regex \
         pattern format("^(?:(?:%s)\\s){3}",replaceText(random12,return,"|")) \
         into R
   return R
end tdz1

Code: Select all

function tdz2 random12, text1080
   replace return with "|" in random12
   put "^((?:(?:" & random12 &  ")\s){3})" into REX
   repeat for each line K in text1080
      if matchText(K,REX,gotIT) then \
            put char 1 to -2 of gotIT &cr after R
   end repeat
   delete last char of R
   return R
end tdz2

Code: Select all

on mouseUp
  put fld id 1008 into zxs -- the random sample, nothing else needed
  put the millisecs into m1; lock screen; lock messages
  -- repeat 20 -- start your alternate method here
  put empty into fOut
  repeat with i=1 to 12
    put line i of zxs into l1
    put char 1 of l1 into u1; put char 2 of l1 into u2
    put char 3 of l1 into u3; put char 4 of l1 into u4
    repeat with j=i+1 to 12
      put line j of zxs into l2
      put char 1 of l2 into v1; put char 2 of l2 into v2
      put char 3 of l2 into v3; put char 4 of l2 into v4
      repeat with k=j+1 to 12
        put line k of zxs into l3
        -- checking for the rules of the game SET
        if u1 & v1 &char 1 of l3 is not in "111,222,333,123,132,213,312,231,321" then next repeat
        if u2 & v2 &char 2 of l3 is not in "RRR,GGG,PPP,RGP,RPG,GRP,PRG,GPR,PGR" then next repeat
        if u3 & v3 &char 3 of l3 is not in "FFF,LLL,HHH,FLH,FHL,LFH,HFL,LHF,HLF" then next repeat
        if u4 & v4 &char 4 of l3 is not in "DDD,OOO,SSS,DOS,DSO,ODS,SDO,OSD,SOD" then next repeat
        put cr & l1 &space& l2 &space& l3 after fOut
      end repeat
    end repeat
  end repeat
  -- end repeat -- end your alternate method here
  unlock screen; unlock messages; put (the millisecs -m1)
  put char 2 to -1 of fOut into fld id 1025
end mouseUp

Code: Select all

local sSetsForCard -- sSetsForCard[ tCard ][ tSet ] = "true" -- which sets contain a given card

function getSetsForShownCards pShownCards -- pShownCards is a return-delimited list; so is the result
  local tCountForSet -- tCountForSet[ tSet ] = tCount -- how many shown cards for a given set
  local tShownSets -- tShownSets[ tSet ] = "true" -- sets that contain three of the shown cards
  
  repeat for each line tCard in pShownCards -- for each shown card
    repeat for each key tSet in sSetsForCard[ tCard ] -- for each set that contains the card
      add 1 to tCountForSet [ tSet ] -- increment the set’s count of shown cards
      if tCountForSet [ tSet ] is 3 then -- if the set has three shown cards then
        put "true" into tShownSets[ tSet ] -- remember it
      end if
    end repeat
  end repeat

  return the keys of tShownSets -- the result is a return-delimited list
end getSetsForShownCards

Code: Select all

command initialize pSets -- pSets is a return-delimited list of sets; each set is a space-delimited list of cards
    repeat for each line tSet in pSets
        get word 1 to 3 of tSet
        put "true" into sSetsForCard[ word 1 of it ][ it ]
        put "true" into sSetsForCard[ word 2 of it ][ it ]
        put "true" into sSetsForCard[ word 3 of it ][ it ]
    end repeat
end initialize