9 lines
118 B
Common Lisp
9 lines
118 B
Common Lisp
//! Implements a Truth Machine
|
|
|
|
fn main (n)
|
|
match n {
|
|
1 => loop print(1),
|
|
n => println(n),
|
|
}
|
|
|