LOGO - zadatak Racun - rješenje

to racun :l
; NAPOMENA
; ovo rjesenje nije ograniceno samo na dva operanda, ali je vazno da je izraz ispravan!

; TRIVIJALNI SLUCAJ nista ne radi, samo vraca ulaz
; sto je dobro svojstvo jer ce jednako postupati za + - * / i brojeve!
if not listp :l [op :l]

; BAZICNI SLUCAJ
; razrijesavamo ulaznu listu
foreach :l [
	; dodaj rekurzivno razrijeseni element na finalni izraz
	make "l bf lput (racun ?) :l
]

; izvrsi listu (npr. ako izraz glasi [ 1 + 2 ] onda run [op 1 + 2] )
run se "op :l

end