Problem: Moving Average
Code: Moving+Average/tails_1645678436
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)
(implicit map):[chr,[chr],[chr]] `\ (special scans):[[chr]] ;;@ (= allLines):[[chr]] (foldop: undefined nibble 0xc (try Nibbles version >=0.22)):null ~~ (3-ary tuple):chr,[chr],[chr] <--arg( B:[chr] A:[chr] ) / (foldr1):chr $ (= B):[chr] @ (= C):chr <--arg( D:chr C:chr ) "Average:" (string):[chr] : (append):[chr] : (append):[chr] \ (reverse):[chr] `) (swapped uncons):[chr] -->let( I:chr ) \ (reverse):[chr] `p (int to str):[chr] / (divide):int + (sum):int ; (let):[int] -->let( H:[int] ) . (map):[int] < (take):[chr] 5 (integer):int \ (reverse):[chr] $ (= B):[chr] r (read str at base):int <--arg( E:chr ) : (append):[chr] ? (if/else):[chr] $ (= E):chr ; (let):[chr] <--arg( F:chr ) -->let( G:[chr] ) "." (string):[chr] 5 (integer):int 2 (integer):int , (length):int $ (= G):[chr] 10 (integer):int _ (= G):[chr] (implicit arg = I):chr