Deal cards for FreeCell: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,981: / Line 2,981: @@
 <syntaxhighlight lang="Quackery">  [ [ [] 52 times
       [ i^ join ] ]
-    constant ]              is newpack  (     --> n )
+    constant ]             is newpack  (     --> n )
   [ 2dup peek
     dip [ over -1 peek ]
     swap 2swap poke
-    -1 poke ]               is to-end   ( [ n --> [ )
+    -1 poke ]              is to-end   ( [ n --> [ )
   [ [] swap
@@ Line 2,995: / Line 2,995: @@
         -1 split
         swap dip join ]
-     drop ]                 is mixem    (   [ --> [ )
+     drop ]                is mixem    (   [ --> [ )
-   [ 4 /mod
+  [ 4 /mod
     $ "A23456789TJQK"
     rot peek emit
     $ "CDHS"
-    swap peek emit ]        is echocard (   n -->   )
+    swap peek emit ]       is echocard (   n -->   )
   [ witheach
       [ echocard
         i^ 8 mod 7 =
-        iff cr else sp ] ]  is echopack (   [ -->   )
+        iff cr else sp ] ] is echopack (   [ -->   )
   [ MCR-seed replace
     newpack
     mixem
-    echopack ]              is deal     (   n -->   )
+    echopack ]             is deal     (   n -->   )
   ' [ 1 617 11982 ]