Noratrieb/idris-learning
1
0
Fork 0
mirror of https://github.com/Noratrieb/idris-learning.git synced 2026-01-14 21:15:02 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

data store search

Browse source
This commit is contained in:
nora 2021-08-17 21:39:45 +02:00
parent eda0cba251
commit 94ed1401fe
4 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
chapter3/PatternMatching.idr
View file

@ -42,4 +42,13 @@ mutual
isOdd Z = False
isOdd (S k) = isEven k
displayList : Show a => List a -> String
displayList xs = "[" ++ showItems xs ++ "]"
where
showItems : Show a => List a -> String
showItems [] = ""
showItems (x :: []) = show x
showItems (x :: next) = show x ++ "," ++ showItems next