! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: kernel fry math math.combinatorics math.order sequences
+USING: kernel math math.combinatorics math.order sequences
io prettyprint ;
IN: benchmark.fannkuch
: fannkuch ( n -- )
[
- [ 0 0 ] dip iota [ 1 + ] B{ } map-as
+ [ 0 0 ] dip <iota> [ 1 + ] B{ } map-as
[ fannkuch-step ] each-permutation nip
] keep
"Pfannkuchen(" write pprint ") = " write . ;