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