Towers of Hanoi: Difference between revisions
Content added Content deleted
(Undo revision 125368 by 206.75.102.162 (talk) last editor was confused) |
m (→{{header|J}}) |
||
Line 840: | Line 840: | ||
<lang J>hanoi=: monad define |
<lang J>hanoi=: monad define |
||
moves=. |
moves=. H y |
||
disks=. $~` ((],[,]) $:@<:) @.* y |
disks=. $~` ((],[,]) $:@<:) @.* y |
||
('move disk ';' from peg ';' to peg ');@,."1 ":&.>disks,.1+moves |
('move disk ';' from peg ';' to peg ');@,."1 ":&.>disks,.1+moves |