Perfect shuffle: Difference between revisions
Add APL
(Added Quackery.) |
Not a robot (talk | contribs) (Add APL) |
||
Line 234:
10000: 300
</pre>
=={{header|APL}}==
{{works with|Dyalog APL}}
<lang apl>faro ← ∊∘⍉(2,2÷⍨≢)⍴⊢
count ← {⍺←⍵ ⋄ ⍺≡r←⍺⍺ ⍵:1 ⋄ 1+⍺∇r}
(⊢,[1.5] (faro count ⍳)¨) 8 24 52 100 1020 1024 10000</lang>
{{out}}
<pre> 8 3
24 11
52 8
100 30
1020 1018
1024 10
10000 300</pre>
=={{header|Arturo}}==
| |||