(define (say-hello name)
  (write-line 
    (string-concat "Hello " name "!")))
        
(say-hello "World")

(define (factorial n)
  (define (fact n p)
    (if (= 0 n)
      p
      (fact (- n 1) (* n p))))
  (fact n 1)) 
          
(write-line (factorial 5))

(define (fibonacci n)
  (define (fibo n a b)
    (cond
      [(= 0 n) a]
      [(= 1 n) b]
      [#t (fibo (- n 1) b (+ a b))]))
  (fibo n 1 1 ))
                    
(write-line (map fibonacci '(0 1 2 3 4 5 6)))

-- Pascal triangle
          
(require 
  [listutil l] 
  [math m])
          
(define N 10)
          
(map 
  (lambda (n) 
    (write-line (m::pascals n))) 
  (l::range 0 N))

Try Hackeme

A new language for the modern web