aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

139
Task/Playing-cards/Quackery/playing-cards.quackery Normal file
View file

@ -0,0 +1,139 @@
[ /mod if 1+ ] is /up ( n n --> n )
[ [] 52 times [ i^ join ] ] is newpack ( --> [ )
[ -13 swap join ] is +lowjoker ( [ --> [ )
[ 64 join ] is +highjoker ( [ --> [ )
[ +lowjoker +highjoker ] is +jokers ( [ --> [ )
[ [ table
$ 'ace' $ 'two' $ 'three'
$ 'four' $ 'five' $ 'six'
$ 'seven' $ 'eight' $ 'nine'
$ 'ten' $ 'jack' $ 'queen'
$ 'king' ] do ] is rank ( n --> $ )
[ [ table
$ 'clubs' $ 'diamonds'
$ 'hearts' $ 'spades' ]
do ] is suit ( n --> $ )
[ dup -13 = iff
[ drop $ 'low joker' ] done
dup 64 = iff
[ drop $ 'high joker' ] done
13 /mod rank
$ ' of ' join
swap suit join ] is card ( n --> $ )
[ [] swap
witheach
[ card join
carriage join ] ] is hand ( [ --> $ )
[ card echo$ ] is echocard ( n --> )
[ hand echo$ ] is echohand ( [ --> )
[ > ] is bysuit ( n n --> b )
[ 13 /mod 4 * + ] is rankfirst ( n --> n )
[ rankfirst
swap rankfirst < ] is byrank ( n n --> b )
[ dup [] != while
dup size random split
swap join ] is cut ( [ --> [ )
[ dup [] != while
dup size 2 * 3 /up
random split
dup size dup iff
[ random split
dip swap join ]
else drop join ] is scarne ( [ --> [ )
[ [] nested swap of ] is players ( n --> [ )
[ temp put
over size * times
[ over [] = iff
[ 1 split swap join ]
else
[ swap temp share split
swap rot behead
rot join
nested join ] ]
temp release ] is dealby ( [ [ n n --> [ [ )
[ 1 dealby ] is deal ( [ [ n --> [ [ )
[ 1 swap dealby ] is dealeach ( [ [ n --> [ [ )
[ over size deal ] is dealall ( [ [ --> [ [ )
[ [] swap
[ behead 1 split
dip [ swap dip join ]
dup [] = iff
drop
else
[ nested join ]
dup [] = until ]
drop swap join ] is undeal ( [ [ --> [ )
[ over size over size
tuck /mod
rot over -
dip [ over 1+ swap of ]
rot swap of join
swap []
2swap
witheach
[ split unrot nested join
swap ]
unrot witheach
[ dip behead join
nested join ] ] is divvy ( [ [ --> [ [ )
[ newpack
4 players divvy
witheach
[ 1 split 7 split
nip join join ]
+highjoker ] is euchrepack ( --> [ )
[ [] swap witheach join
swap join ] is gather ( [ [ --> [ )
[ 2 players divvy undeal ] is faro-out ( [ --> [ )
[ 2 players divvy
1 split swap join undeal ] is faro-in ( [ --> [ )
[ unrot times
[ over i bit & iff
faro-in else faro-out ]
nip ] is faro ( [ n n --> [ )
[ players dealall gather ] is piles ( [ n --> [ )
[ players dealall
shuffle gather ] is mixpiles ( [ --> [ )
[ stack 5 ] is riffskill ( --> [ )
[ [] swap
dup size 2 /up split
2 random if swap
[ dup [] != while
behead nested
dip rot join unrot
riffskill share 1+ random
1 != if swap
again ] drop join ] is riffle ( [ --> [ )
[ times riffle ] is riffles ( [ n --> [ )