25 lines
413 B
Racket
25 lines
413 B
Racket
#lang racket
|
|
|
|
(define (greet name)
|
|
(printf "Hello, ~a!\n" name))
|
|
|
|
(define (add x y)
|
|
(+ x y))
|
|
|
|
(define (factorial n)
|
|
(if (<= n 1)
|
|
1
|
|
(* n (factorial (- n 1)))))
|
|
|
|
(struct person (name age) #:transparent)
|
|
|
|
(define (person-greet p)
|
|
(printf "Hello, I'm ~a\n" (person-name p)))
|
|
|
|
(greet "World")
|
|
(displayln (add 5 3))
|
|
(displayln (factorial 5))
|
|
|
|
(define alice (person "Alice" 30))
|
|
(person-greet alice)
|