LOGO - Silba 2012 - Zadatak: BinSearch: Kristijan Burnik

to bin.search :lista :t
	(local "s "e "koraci "c "el)
	make "l (sort :lista)

	make "s 0
	make "e count :l
	make "koraci []

	while [ :s < :e ] [

		;; racunamo sredinu intervala
		make "c int ((:s + :e)/2)

		;; "izvlacimo" sredisnji element
		make "el item (:c+1) :l

		;; biljezimo korak
		make "koraci lput :el :koraci

		;; ako je sredisnji element jednak trazenom, pretraga je gotova
		ifelse :el = :t [
			pr :koraci
			op "true
		] [
			;; u kojem podintervalu bi se element mogao nalaziti?
			ifelse (:el < :t) [
				; s desne strane sredisnjeg elementa
				make "s :c
			][
				;; s lijeve strane sredisnjeg elementa
				make "e :c
			]

		]

	]
	;; ispisi korake, element nije pronadjen
	pr :koraci
	op "false
end
;;;;;;;;;;;;;
;; primjer ;;
;;;;;;;;;;;;;
make "l [1 10 3 4 7 6 8 9 2 5]
repeat (count :l) [
	pr bin.search :l (pick :l)
]