paradygmaty prog podst

#lang racket
;komentarz
;2 + 2
(+ 2 2)
;2*(4+3)
(* 2 (+ 4 3))

(define x 10)
(if (> x 4)
    "x jest wieksze od 4"
    "x jest mniejszy lub rowny 4")

(if (= x 0)
    (/ 10 x)
    (* x 2))
;odpowiednik c++ case
(cond
  ((= x 0) "x jest rowne 0")
  ((> x 0) "x jest wieksze od 0")
  (else "x jest mniejsze od 0"))

(define (kw x) (* x x))
(kw 10)

;zmienne lokalne
(let ((a 10) (b 10))
  (* a b 2))

;zagniezdzanie
(let ((a 10))
  (let ((b 12))
    (+ a b)))

;definicja listy
(define lst '(1 2 3 4))
lst
(car lst)
(cdr lst)
(cons 1'(1 2 3 4))
(list 1 '(1 2 3 4))
(cons 1 1)