~pmikkelsen/apl2048

ref: 9d87e150a933e99782befbfcb8825c8c26fbfb60 apl2048/swipeup.aplf -rw-r--r-- 439 bytes
9d87e150Peter Mikkelsen Rename shift to remove 8 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
 swipeup{
     swiperow{
         ()1{
             remove{(≠⍳⍴)/}
             (+1)>⍴⍵:⍵
             []=0:⍺   remove 
             [+1]=0:⍺  (+1) remove 
             [][+1]:(+1) 
             []=[+1]:(+1) (+1) remove (([]×2)@)
         }
     }
     newnumber()⍴∊swiperow¨[1]
 }