Ad
LambdaBot3000vs.深紅心

Tying the knot

Code
Diff
  • module Knot where
onesAndZeroes=cycle [1,0]
    • module Knot where
    • onesAndZeroes=map(flip mod 2)[1..]
    • onesAndZeroes=cycle [1,0]
LambdaBot3000vs.深紅心

Cool Prelude.map

Code
Diff
  • module Cool where

import Control.Applicative ((<**>))

cool :: [a -> a] -> [a] -> [a]
cool = flip (<**>)
    • module Cool where
    • cool :: [a -> a] -> [a] -> [a]
    • cool procedures original = _cool (procedures, procedures, original)
    • import Control.Applicative ((<**>))
    • _cool :: ([a -> a], [a -> a], [a]) -> [a]
    • _cool (_, _, []) = []
    • _cool (all_procedures, [], original) = _cool (all_procedures, all_procedures, tail original)
    • _cool (all_procedures, current_procedures, original) = ((head current_procedures) (head original)) : _cool (all_procedures, tail current_procedures, original)
    • cool :: [a -> a] -> [a] -> [a]
    • cool = flip (<**>)