1. Куча / Говнокод #15894

    +127

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    let inline id a = a 
    let inline const1 value _ = value
    let inline applyNTimes f n s =
        let fs = Seq.init n <| const1 f
        let fa = Seq.fold (>>) id fs
        fa s

    Запостил: HaskellGovno, 04 Мая 2014

    Комментарии (8) RSS

    Добавить комментарий