Intersecting number wheels: Difference between revisions
Content added Content deleted
(Added Wren) |
No edit summary |
||
Line 1,898: | Line 1,898: | ||
{'A': '1DD', 'D': '678'} |
{'A': '1DD', 'D': '678'} |
||
{'A': '1BC', 'B': '34', 'C': '5B'}</pre> |
{'A': '1BC', 'B': '34', 'C': '5B'}</pre> |
||
=={{header|Quackery}}== |
|||
<lang Quackery> [ ]this[ ]done[ |
|||
dup take behead |
|||
dup dip |
|||
[ nested join |
|||
swap put ] |
|||
do ] is wheel ( --> n ) |
|||
[ ]'[ |
|||
]'[ nested |
|||
' [ wheel ] |
|||
swap join |
|||
swap replace ] is newwheel ( --> ) |
|||
forward is A forward is B forward is C |
|||
forward is D ( and so on, as required ) |
|||
[ wheel [ 1 2 3 ] ] resolves A ( --> n ) |
|||
[ wheel [ 3 4 ] ] resolves B ( --> n ) |
|||
[ wheel [ 5 B ] ] resolves C ( --> n ) |
|||
[ wheel [ 6 7 8 ] ] resolves D ( --> n ) |
|||
20 times [ A echo sp ] cr |
|||
newwheel A [ 1 B 2 ] |
|||
20 times [ A echo sp ] cr |
|||
newwheel A [ 1 D D ] |
|||
20 times [ A echo sp ] cr |
|||
newwheel A [ 1 B C ] |
|||
newwheel B [ 3 4 ] ( As B has been used already ) |
|||
( it's state may be [ 4 3 ]. ) |
|||
( So we reset it to [ 3 4 ]. ) |
|||
20 times [ A echo sp ] cr</lang> |
|||
{{out}} |
|||
<pre>1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 1 2 |
|||
1 3 2 1 4 2 1 3 2 1 4 2 1 3 2 1 4 2 1 3 |
|||
1 6 7 1 8 6 1 7 8 1 6 7 1 8 6 1 7 8 1 6 |
|||
1 3 5 1 4 3 1 4 5 1 3 4 1 3 5 1 4 3 1 4 </pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |