Perfect shuffle: Difference between revisions
Content added Content deleted
(Added Quackery.) |
Not a robot (talk | contribs) (Add APL) |
||
Line 234: | Line 234: | ||
10000: 300 |
10000: 300 |
||
</pre> |
</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}}== |
=={{header|Arturo}}== |