Set, the card game: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: tidied up) |
|||
Line 312: | Line 312: | ||
[ 0 swap witheach + |
[ 0 swap witheach + |
||
3 mod 0 > if |
3 mod 0 > if |
||
[ not conclude ] ] ] is isset ( [ --> b ) |
[ not conclude ] ] ] is isset ( [ --> b ) |
||
[ [ [] 81 times |
[ [ [] 81 times |
||
Line 320: | Line 320: | ||
3 times join |
3 times join |
||
nested join ] ] constant |
nested join ] ] constant |
||
shuffle swap split drop ] is cards ( n --> [ ) |
shuffle swap split drop ] is cards ( n --> [ ) |
||
[ [] swap |
[ [] swap |
||
Line 331: | Line 331: | ||
join swap ] |
join swap ] |
||
else drop ] |
else drop ] |
||
drop ] is sets ( [ --> [ ) |
drop ] is sets ( [ --> [ ) |
||
[ unpack dup dip |
[ unpack dup dip |
||
Line 363: | Line 363: | ||
cr ] ] is play ( n --> ) |
cr ] ] is play ( n --> ) |
||
' [ 4 8 12 ] witheach |
' [ 4 8 12 ] witheach |
||
[ play say "-----" ]</syntaxhighlight> |
|||
{{out}} |
{{out}} |