#lang racket
; Komentarz
; 2 + 2
(+ 2 2)
(* 123 (+ 45 33))
(define x 10)
(if (> x 4)
    "X jest wieksze od 4"
    "X jest mniejsze lub rowne 4")
(if (= x 0)
    (/ 10 x)
    (* x 2))
(cond ((= x 0) "X jest rowne 0")
      ((> x 0) "X jest wieksze 0")
      (else "X jest mniejsze 0"))
(define (kw x) (* x x))
(kw 10)
(let ((a 10) (b 10))
  (* a b 2))
(let ((a 10))
  (let ((b 12))
    (+ a b)))
(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)

(define (dlugosc lst)
  (if (null? lst)
      0
      (+ 1 (dlugosc (cdr lst)))))
;Zadanie 1
;a)
(* (/ 123.0 4)(+ 45 33))
;b)
(* 2 ( / 53 (+ (* 4 2) (* 3 8))))
;c)
(/ (+ (+ 122 (- 4 3)) 150) 20.4)
;Zadanie 2
(define F 50)
(* (/ 5 9) (- F 32))
;
(let ((F 50))
  (* (/ 5 9) (- F 32)))
;Zadanie 3
(let ((A 5) (B 7) (C 12))
  (- (* B B) (* 4 (* A C))))
;Zadanie 4
(define B 5)
(define A 1)
(define C 4)
(define delta (- (* B B) (* 4 (* A C))))
(cond ((= delta 0) "delta jest rowna 0 - 1 pierwiastek"
      (/ (- B) (* 2 A)))
      ((> delta 0) "delta jest wieksza od 0 - 2"
      (/ (- (- B) (sqrt delta)) (* 2 A))
      (/ (+ (- B) (sqrt delta)) (* 2 A)))
      (else "delta jest mniejsze 0"))
;Zadanie 5
(define punkty 85)
(cond ((and (<= punkty 100) (> punkty 90)) "Ocena 5")
      ((and (<= punkty 90) (> punkty 80)) "Ocena 4+")
      ((and (<= punkty 80) (> punkty 70)) "Ocena 4")
      ((and (<= punkty 70) (> punkty 60)) "Ocena 3+")
      ((and (<= punkty 60) (> punkty 50)) "Ocena 3")
      ((<= punkty 50) "Ocena 2")
      (else "Brak"))
;Zadanie 6
(define (sum lst)
    (if (empty? lst)
        0
        (+ (car lst) (sum (cdr lst)))))
(sum (list 1 2 3 4))
;Zadanie 7
(length (list 1 2 3 4 5))
;Zadanie 12
(cons  6 '(1 2 3 4))