A Confession
This program doesn’t work!
tick :: String -> IO Integer
tick f =
do contents <- readFile f
let n = read contents
writeFile f (show (n+1))
return n
Föregående bild
Nästa bild
Tillbaka till första bilden
Visa grafisk version