Mercurial > hg > Papers > 2015 > atton-thesis
view src/orig/Example/Delta.hs @ 53:ca389989b660
Add original sources
author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 15 Feb 2015 22:38:43 +0900 |
parents | |
children |
line wrap: on
line source
module Example.Delta where import Data.Numbers.Primes import Delta -- examples generator :: Int -> Delta [Int] generator x = let intList = [1..x] in return intList numberFilter :: [Int] -> Delta [Int] numberFilter xs = let primeList = filter isPrime xs evenList = filter even xs in Delta evenList (Mono primeList) count :: [Int] -> Delta Int count xs = let primeCount = length xs in return primeCount numberCount :: Int -> Delta Int numberCount x = generator x >>= numberFilter >>= count