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: cons):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( H:chr ) 
                        \ (reverse):[chr] 
                            `p (int to str):[chr] 
                                / (divide):int 
                                    + (sum):int 
                                        ; (save):[int] -->let( G:[int] ) 
                                            . (map):[int] 
                                                < (take):[[chr]] 
                                                    5 (integer):int 
                                                    \ (reverse):[[chr]] 
                                                        $ (= B):[[chr]] 
                                                `r (read int):int <--arg( E:[chr] ) 
                                                    : (append):[chr] 
                                                        - (diff):[chr] 
                                                            $ (= E):[chr] 
                                                            ; (save):[chr] -->let( F:[chr] ) 
                                                                "." (string):[chr] 
                                                        5 (integer):int 
                                    * (multiply):int 
                                        , (length):int 
                                            $ (= G):[int] 
                                        10 (integer):int 
                _ (= F):[chr] 
            (implicit arg = H):chr