Problem: Back and forth
Code: Back+and+forth/tails_1645683363
Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00
Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)
/ (foldr):[[chr]] -->let( J:int ) \ (reverse):[[[chr]]] `/ (chunks of):[[[chr]]] ~ (auto = 2):auto % (split (remove empties)):[[chr]] ;_ (= allInput):[chr] ~ (auto = words):auto ~ (tuple):[[chr]],int % (split (remove empties)):[[chr]] "" (string):[chr] ~ (auto = words):auto 0 (integer):int (implicit tuple):[[chr]],int <--arg( C:[[chr]] B:[[chr]] A:int ) : (append):[[chr]] @ (= B):[[chr]] `: (list of 2 lists):[[chr]] & (justify):[chr] " " (string):[chr] ; (save):int -->let( F:int ) + (add):int , (length):int / (foldr1):[chr] $ (= C):[[chr]] $ (= E):[chr] <--arg( E:[chr] D:[chr] ) _ (= A):int / (foldr1):[chr] @ (= C):[[chr]] $ (= H):[chr] <--arg( H:[chr] G:[chr] ) & (justify):[chr] " " (string):[chr] $ (= F):int \ (reverse):[chr] ; (save):[chr] -->let( I:[chr] ) =~ (subscript nowrap):[chr] 2 (integer):int @ (= C):[[chr]] - (subtract):int @ (= F):int , (length):int (implicit arg = I):[chr]