# code: http://golf.shinh.org/reveal.rb?Growing+Vines/tails_1647241322&nbb # target Nibbles version: 0.25 # commenter version: 0.1.2.181 < #(take):[[chr]] 10 #(integer):int `. #(iterate while uniq):[[chr]] fstLine #(@):[chr] \A . #(map):[chr] << #(init):[[chr]] `\ #(special scans):[[chr]] : #(append):[chr] " " #(string):[chr] A #($):[chr] ; #(foldop: rev cons):null \B ? #(if/else):chr != #(abs diff):int '\\' #(char):chr ; #(save):chr `( #(uncons):chr : #(append):[chr] B #($):[chr] " " #(string):[chr] sets C sets D \E ? #(if/else):chr ; #(save):int % #(modulus):int ; #(save):chr / #(foldr1):chr `) #(swapped uncons):[chr] C #(_):[chr] sets F \H G H #($):chr sets I ~ #(auto = 2):auto sets J \K I #(_):chr ? #(if/else):chr / #(divide):int F #(_):chr ; #(save):chr '|' #(char):chr sets L \M L #(@):chr ~ #(default):null ? #(if/else):chr J #(@):int \N L #(@):chr #(implicit arg = D):chr