Topswops: Difference between revisions

=={{header|PicoLisp}}==

<lang PicoLisp>(de fannkuch (N)

(let (Lst (range 1 N) L Lst Max)

(recur (L) # Permute

(if (cdr L)

(do (length L)

(recurse (cdr L))

(rot L) )

(zero N) # For each permutation

(for (P (copy Lst) (> (car P) 1) (flip P (car P)))

(inc 'N) )

(setq Max (max N Max)) ) )

Max ) )

(for I 10

(println I (fannkuch I)) )</lang>

Output:

<pre>1 0

2 1

3 2

4 4

5 7

6 10

7 16

8 22

9 30

10 38</pre>