blob: 0805991856c9d7de0d489337edb534a50e0bf75a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#lang racket
(provide (struct-out complex) parse eval)
(struct complex (re im) #:transparent)
(define value?
complex?)
;; Ponizej znajduje sie interpreter zwyklych wyrazen arytmetycznych.
;; Zadanie to zmodyfikowac go tak, by dzialal z liczbami zespolonymi.
(struct const (val) #:transparent)
(struct binop (op l r) #:transparent)
(define (op->proc op)
(match op ['+ +] ['- -] ['* *] ['/ /]))
(define (eval e)
(match e
[(const n) n]
[(binop op l r) ((op->proc op) (eval l) (eval r))]))
(define (parse q)
(cond [(number? q) (const q)]
[(and (list? q) (eq? (length q) 3) (symbol? (first q)))
(binop (first q) (parse (second q)) (parse (third q)))]))
|
