Paste: (simd-v/) optimized
| Author: | j |
|---|
| Mode: | factor |
|---|
| Date: | Mon, 24 May 2010 06:35:52 |
|---|
Plain Text |
[
>R 2 slot R> 2 slot >R >R R> R> swap swap >R 4 {
int-array
2
1
tuple
57438726
int-array
12314669694609411
} <tuple-boa> R> 4 {
int-array
2
1
tuple
57438726
int-array
12314669694609411
} <tuple-boa>
>R R> "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" R> swap swap
[ / ] "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" "COMPLEX SHUFFLE"
R> >R >R >R 4 R> R> R> >R >R >R R> R>
[ 2nth-unsafe ]
{ curry 2 1 tuple 57438726 curry -49469977 } <tuple-boa>
{ curry 2 1 tuple 57438726 curry -49469977 } <tuple-boa>
R> >R R>
{ compose 2 1 tuple 57438726 compose 103930120 }
<tuple-boa> 16 (byte-array) 4 {
int-array
2
1
tuple
57438726
int-array
12314669694609411
} <tuple-boa> dup >R
[ [ keep ] dip set-nth-unsafe ]
{ curry 2 1 tuple 57438726 curry -49469977 } <tuple-boa>
{ curry 2 1 tuple 57438726 curry -49469977 } <tuple-boa>
swap (unrolled-each-integer) R> 2 slot
0 swap swap \ int-4-rep "COMPLEX SHUFFLE" "COMPLEX SHUFFLE"
(simd-select)
]
New Annotation