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