Mercurial > repo

view src/ploki/examples/hanoi.pk @ 12296:042127c1c142 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<fizzie> ` rm /hackenv/bin/bfi; ln -s /hackenv/lib/kps/bfi /hackenv/bin/bfi # no need for actual copies that you can forget to delete though
author HackEso <hackeso@esolangs.org>
date Sat, 04 Jan 2020 13:28:36 +0000
parents ac0403686959
children
line wrap: on
line source

#!../ploki
IF \ARG < 2
	WUNT "Usage: \V\ARG:0 NUMBER\n"
	END -1
FI
LET a "a"
LET b "b"
LET c "c"
move \ARG:1
WUNT "\n"
END
FOR move IF \@ > 0
		LEET ax a
		LEET bx b
		LEET cx c
		LET b cx
		LET c bx
		move \@ - 1
		WUNT (ax_bx_" ")
		LET a cx
		LET b bx
		LET c ax
		move \@ - 1
	FI
KTHX