# code: http://golf.shinh.org/reveal.rb?Major+Scales/tails+%28guess+%2A+%22+%22+must+be+needless+in+future+versions%29_1646456921&nbb # target Nibbles version: 0.25 # commenter version: 0.1.0.163 * #(join):[chr] " " #(string):[chr] =\ #(scanl):[[chr]] , #(range from 1):[int] 6 #(integer):int ;$ #(= fstLine):[chr] <--arg( B:int A:int ) : #(append):[chr] <--arg( D:int C:[chr] ) + #(add):chr ; #(save):int -->let( F:int ) % #(modulus):int % #(modulus):int `( #(uncons):chr -->let( E:[chr] ) @ #(= C):[chr] 8 #(integer):int 7 #(integer):int 'A' #(char):chr = #(subscript (wrapped)):[chr] + #(add):int ? #(index):int ; #(save):[[chr]] -->let( N:[[chr]] ) : #(append):[[chr]] : #(append):[[chr]] : #(append):[[chr]] `: #(list of 2 lists):[[chr]] ; #(save):[chr] -->let( I:[chr] ) `> #(drop also take):[chr] -->let( H:[chr] ) 3 #(integer):int . #(map):[chr] `D #(to base from data):[int] 256 #(to base from data arg):null ch #(chr):chr <--arg( G:int ) $ #(= G):int @ #(= H):[chr] "" #(string):[chr] : #(append):[chr] << #(init):[chr] @ #(= H):[chr] + #(add):chr / #(foldr1):chr @ #(= H):[chr] @ #(= J):chr <--arg( K:chr J:chr ) 2 #(integer):int : #(append):[chr] << #(init):[chr] $ #(= I):[chr] - #(subtract):int / #(foldr1):chr $ #(= I):[chr] @ #(= L):chr <--arg( M:chr L:chr ) ~ #(auto):auto ;@ #(= E):[chr] - #(subtract):int / #(divide):int % #(modulus):int ;$ #(= F):int 3 #(integer):int ~ #(auto):auto == #(equal?):int ;_ #(= D):int 3 #(integer):int <--arg( O:int ) $ #(= N):[[chr]] #(postdata (hex): to base from data) e299adf09d84ab