Revision as of 16:29, 30 January 2022 (view source) Jjuanhdez (talk \| contribs) (Towers of Hanoi en ALGOL 60) ← Older edit		Revision as of 13:42, 8 February 2022 (view source) rosettacode>Wasamasa (Emacs Lisp: Improve code) Newer edit →
Line 1,999: =={{header\|Emacs Lisp}}== {{Trans\|Common Lisp}} <lang lisp>(defun move (n from to via) ~~(defun~~ ~~move~~ (nif ~~from~~(= ton ~~via~~1) ~~(print~~ (~~format~~message "Move from %S to %S" from to))▼ ~~(cond ((= n 1)~~ (~~print~~move (~~format~~- ~~"Move~~n 1) from %Svia to ~~%S" from to))~~) (message "Move from %S to %S" from to) (t (move (- n 1) via to from)))))</lang>▼ ~~(progn~~ ~~(move (- n 1) from via to)~~ ▲ (print (format "Move from %S to %S" from to)) ▲ (move (- n 1) via to from))))) ~~</lang>~~ =={{header\|Erlang}}==

Towers of Hanoi: Difference between revisions

Towers of Hanoi (view source)