Closed ktye closed 12 months ago
now new each +'x same over +/x same scan +\x same each2 x+'y same over-init x+/y +/x,y scan-init x+\y +\x,y each-n F'[..] same (n>2) over-n F/[..] same (n>2) scan-n F\[..] same (n>2) each-prior -':x ??? fixedpoint f/:x f/x (monadic) fixedscan f\:x f\x transition 0{L[x;y]}\x L\0,x each-left x+\:y x+\y each-right x+/:y x+/y join x/:y c/y (chars only) split x\:y c\y (chars only) decode x//y n/y (numbers) encode x\\y n\y (numbers) div x\y y%x (int remains) mod x/y x!y (i-atom only) ndo f n/x retire bin x'y same lin x y'z {..} in x':y a?v (remove shuffle/deal) deal/shuffle n?v v(n?#v) each-prior: maybe sqrt %x sqrt x (verb-code) rotate-fill n/a %x %1 2 3 /0 1 2 prior -':x x-%x or define prior:{[f;x;x0]f[x;-1_x0,x]}