This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- Counter app, count up in 30 seconds increments, and | |
-- then count down the last 10 seconds | |
module Main | |
import System | |
-- given a second, what should we say at that second? | |
sayWhatAt : Int -> String | |
sayWhatAt 30 = "30 seconds passed" | |
sayWhatAt 60 = "1 minute passed" | |
sayWhatAt seconds = |