Conlang/sample-code/match_test.cl
John 3b14186b70 sample-code: Add match_test.cl
Demonstrates pattern matching
2025-02-18 21:53:32 -06:00

19 lines
511 B
Common Lisp

//! This is a Conlang library demonstrating `match`
struct Student {
name: str,
age: i32,
}
fn Student (name: str, age: i32) -> Student {
Student: { name, age }
}
fn match_test(student: Student) {
match student {
Student: { name: "shark", age } => println("Found a shark of ", age, " year(s)"),
Student: { name, age: 22 } => println("Found a 22-year-old named ", name),
Student: { name, age } => println("Found someone named ", name, " of ", age, " year(s)"),
}
}