#lang racket
(let ([x (+ 2 4)]) (* x x))
(let ((x (list 1 2 4))) (list (cdr x) (car x)))

(define (jedynki n)
  (if(> n 1)
     (cons 1 (jedynki (- n 1)))
     (cons 1 '())))

(jedynki 15)

(define (dlugosc lst)
  (if (null? lst)
      0
      (+ 1 (dlugosc(cdr lst)))
  )
)

(dlugosc( jedynki 5 ))

(define (suma lst)
  (if (null? lst)
      0
      (+ (car lst) (suma(cdr lst)))
  )
)

(suma '(1 2 3 4))

(define (square x) (* x x))
(define (mapa func lst)
  (if(null? lst)
  '()
  (cons (func (car lst)) (mapa func (cdr lst)))
  )
)

(mapa square '(1 3 5 7 9 34))

(define (nty lst n)
  (if(list? lst)
     (if (= n 1)
         (car lst)
         (nty (cdr lst) (- n 1))
     )
    "Blad"
  )
)

(nty '(1 3 5 7 9 34) 4)

(define (potr a n)
  (if (= a 0)
      1
      (* n (potr n (- a 1)))
      )
  )

(potr 2 5)

(define (silnia n)
  (if (= n 0)
      1
      (* n (silnia (- n 1)))
      )
  )

(silnia 100)