mirror of
https://codeberg.org/ProgramSnail/lang_2023.git
synced 2025-12-06 06:58:45 +00:00
17 lines
448 B
Text
17 lines
448 B
Text
decl fruit_cost : Fruit -> Int
|
|
def fruit_cost : fruit = {
|
|
return (match fruit with
|
|
| $Banana -> 11
|
|
| $Apple | $Orange -> 7)
|
|
}
|
|
|
|
decl amount_to_string : Int -> Bool -> String
|
|
def amount_to_string : x is_zero_separated = {
|
|
const ans = match x with
|
|
| 0 ? is_zero_separated -> "Zero"
|
|
| 0 | 1 | 2 | 3 | 4 -> "Few"
|
|
| x ? (5--9).contains: x -> "Several"
|
|
| x ? (10--19).contains: x -> "Pack"
|
|
| _ -> "Lots"
|
|
return ans
|
|
}
|