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: cons) 
    ~~ (3-ary tuple) <--arg( B A ) 
        / (foldr1) 
            $ (= B) 
            @ (= C) <--arg( D C ) 
        "Average:" (string) 
        : (append) 
            : (append) 
                \ (reverse) 
                    `) (swapped uncons) -->let( H ) 
                        \ (reverse) 
                            `p (int to str) 
                                / (divide) 
                                    + (sum) 
                                        ; (save) -->let( G ) 
                                            . (map) 
                                                < (take) 
                                                    5 (integer) 
                                                    \ (reverse) 
                                                        $ (= B) 
                                                `r (read int) <--arg( E ) 
                                                    : (append) 
                                                        - (diff) 
                                                            $ (= E) 
                                                            ; (save) -->let( F ) 
                                                                "." (string) 
                                                        5 (integer) 
                                    * (multiply) 
                                        , (length) 
                                            $ (= G) 
                                        10 (integer) 
                _ (= F) 
            (implicit arg = H)