Alternade words: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,411: / Line 1,411: @@
 void local fn DoIt
-  CFArrayRef  words = fn Words
-  CFStringRef wd, wd1, wd2
-  long        length, i
   text,,,,, 80
+  dispatchglobal
-  for wd in words
+    CFArrayRef  words = fn Words
-    length = len(wd)
+    CFStringRef wd, wd1, wd2
-    if ( length >= 6 )
+    long length, i
-      wd1 = @"" : wd2 = @""
+    for wd in words
-      for i = 0 to length-1
+      length = len(wd)
-        if ( i mod 2 == 0 )
+      if ( length >= 6 )
-          wd1 = fn StringByAppendingString( wd1, mid(wd,i,1) )
+        wd1 = @"" : wd2 = @""
-        else
+        for i = 0 to length-1
-          wd2 = fn StringByAppendingString( wd2, mid(wd,i,1) )
+          if ( i mod 2 == 0 )
+            wd1 = fn StringByAppendingString( wd1, mid(wd,i,1) )
+          else
+            wd2 = fn StringByAppendingString( wd2, mid(wd,i,1) )
+          end if
+        next
+        if ( fn ArrayContainsObject( words, wd1 ) and fn ArrayContainsObject( words, wd2 ) )
+          dispatchmain
+            print wd,wd1,wd2
+          dispatchend
         end if
-      next
-      if ( fn ArrayContainsObject( words, wd1 ) and fn ArrayContainsObject( words, wd2 ) )
-        print wd,wd1,wd2
       end if
-    end if
+    next
+  dispatchend
-  next
 end fn