~pmikkelsen/apl2048

ref: 9d87e150a933e99782befbfcb8825c8c26fbfb60 apl2048/newnumber.aplf -rw-r--r-- 192 bytes
9d87e150Peter Mikkelsen Rename shift to remove 10 months ago
                                                                                
1
2
3
4
5
6
7
8
 newnumber{
     elements,
     shape
     indexes(elements0)/⍳×/shape
     indexindexes[?⍴indexes]
     elements[index](2 2 4)[?3]
     shapeelements
 }