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