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

Summary:
Author:
Mode:
Body: