Paste: readable factor code...
Author: | pruned |
Mode: | factor |
Date: | Thu, 27 Aug 2009 08:59:47 |
Plain Text |
[
>R 0 1 swap <array> >R 1 1 swap <array>
>R "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" R> "COMPLEX SHUFFLE"
"COMPLEX SHUFFLE" "COMPLEX SHUFFLE" 0 "COMPLEX SHUFFLE"
\ [
fixnum< [
"COMPLEX SHUFFLE" "COMPLEX SHUFFLE"
"COMPLEX SHUFFLE" "COMPLEX SHUFFLE"
"COMPLEX SHUFFLE" swap swap "COMPLEX SHUFFLE"
"COMPLEX SHUFFLE" 2 slot "COMPLEX SHUFFLE" 2 slot +
"COMPLEX SHUFFLE" 2 slot
"COMPLEX SHUFFLE" 2 set-slot R> 2 set-slot
"COMPLEX SHUFFLE" "COMPLEX SHUFFLE" 1 fixnum+fast
"COMPLEX SHUFFLE"
] [ ] if
] label R> 2 slot
]
New Annotation