forked from alex-eg/sex
19 lines
344 B
Scheme
19 lines
344 B
Scheme
(include stdio.h)
|
|
|
|
(define (foo)
|
|
"Hello from Chicken code!\n")
|
|
|
|
(struct foo
|
|
((int a)
|
|
(float b)))
|
|
|
|
(pub fn int main ((int argc) (char **argv))
|
|
(var int a 10)
|
|
(puts "Hello from Sex!")
|
|
(var (array char 512) name)
|
|
(puts "What is your name?")
|
|
(scanf "%s" &name)
|
|
(printf "Hello, %s!\n" name)
|
|
(printf ,(foo))
|
|
0)
|