ilyakooo0/Idris-dev
1
0
Fork 0
mirror of https://github.com/ilyakooo0/Idris-dev.git synced 2024-09-11 08:55:23 +03:00
Code Issues Projects Releases Wiki Activity

Fix fasta benchmark

Browse Source 
It defined it's own scanl, leading to name clash
This commit is contained in:
Niklas Larsson 2017-08-06 15:01:13 +02:00
parent 7d0263a617
commit bf01486963
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
benchmarks/fasta/fasta.idr
View File

@ -38,10 +38,6 @@ replicate : Int -> Char -> String
replicate 0 c = ""
replicate n c = singleton c <+> replicate (n-1) c
scanl : (f : acc -> a -> acc) -> acc -> List a -> List acc
scanl f q ls = q :: (case ls of
[] => []
x::xs => scanl f (f q x) xs)
accum : (Char,Double) -> (Char,Double) -> (Char,Double)
accum (_,p) (c,q) = (c,p+q)