mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 01:52:11 +03:00
30 lines
608 B
Plaintext
30 lines
608 B
Plaintext
module Input;
|
|
|
|
open import String;
|
|
|
|
open import Bool;
|
|
|
|
open import Pair;
|
|
|
|
open import IO;
|
|
|
|
-- Not needed but useful for testing
|
|
open import Prelude;
|
|
|
|
bool-to-str : Bool → String;
|
|
bool-to-str true ≔ "True";
|
|
bool-to-str false ≔ "False";
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Main
|
|
--------------------------------------------------------------------------------
|
|
|
|
fst-of-pair : Action;
|
|
fst-of-pair ≔ (put-str "fst (True, False) = ")
|
|
>> put-str-ln (bool-to-str (fst Bool Bool (mkPair true false)));
|
|
|
|
main : Action;
|
|
main ≔ fst-of-pair;
|
|
|
|
end;
|