(terpri stream)))
(defun demonstrate-permutation-network
- (n steps &optional reference (stream *standard-output*))
+ (n steps
+ &key reference
+ (stream *standard-output*))
"Print, on STREAM, a demonstration of the permutation STEPS.
Begin, on the left, with the integers from 0 up to N - 1. For each
(let ((benes-network (benes-search fixed-ip)))
(print-permutation-network benes-network)
- (demonstrate-permutation-network 64 benes-network fixed-ip))
+ (demonstrate-permutation-network 64 benes-network :reference fixed-ip))
(terpri)
(print-permutation-network trad-network)
- (demonstrate-permutation-network 64 trad-network fixed-ip)
+ (demonstrate-permutation-network 64 trad-network :reference fixed-ip)
(terpri)
(print-permutation-network new-network)
- (demonstrate-permutation-network 64 new-network fixed-ip))
+ (demonstrate-permutation-network 64 new-network :reference fixed-ip))
#+example
(benes-search-des #( 0 0 0 0