| f=.4 :0 | |
| m=.>:>./x,y | |
| t=.(|+(1+m)*0>:*)@(i.@#-~])@(],m$~(>&#)*(-&#)) | |
| x(t~(*@-&((m+#x,y)&#.))t)y | |
| ) | |
| (0) f (>a:) | |
| 1 | |
| (>a:) f (1) | |
| 1 | |
| (>a:) f (1,2,1,2) | |
| 1 | |
| (2,1) f (1,1) | |
| 1 | |
| (0,1,2) f (0,2,1) | |
| 1 | |
| (3,0) f (3,1) | |
| 1 | |
| (3,1) f (3) | |
| 1 | |
| (2) f (2,2) | |
| 1 | |
| (2) f (2,23) | |
| 1 | |
| (2,24) f (2,23) | |
| 1 | |
| (2,1) f (2,23) | |
| 1 | |
| (>a:) f (>a:) | |
| 0 | |
| (0) f (0) | |
| 0 | |
| (1,1) f (1,1) | |
| 0 | |
| (2,1,2) f (2,1,2) | |
| 0 | |
| (1,2,1,1,2) f (1,2,1,1,1) | |
| _1 | |
| (1,2,1,1,5) f (1,2,1,1,4) | |
| _1 | |
| (1,2,1,1,5) f (1,2,1,1) | |
| _1 | |
| (1,2,1) f (1,2,1,1) | |
| _1 | |
| (1,2,1,1,5) f (1,2,1,1,6) | |
| _1 | |
| (1,2,1,1,6) f (1,2,1,1,7) | |
| _1 | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment