write-permutation ( perm -- )


Vocabulary
benchmark.fannkuch

Inputs
perman object


Outputs
None

Definition
USING: io math sequences ;

IN: benchmark.fannkuch

: write-permutation ( perm -- ) [ 48 + write1 ] each nl ; inline