to aaa
;UCBLogo
;Zadatak 4 sa zupanijskih natjecanja 1999.
;TEXT ZADATKA (vidite sluzbeni text):
;
;Pozvati sa:
;--------------------------
;pr zamjena "mata "amt "ogb
;--------------------------
;	dobije se rijec: gobo
;--------------------------
;pr zamjena "ata "ae "ei
;--------------------------
;	dobije se rijec: ete
;NAPOMENA: Ovo je prva verzija s tail rekurzijom
end

to obrni :slovo :trazeno :zamjena
if emptyp :trazeno [op :slovo]
if equalp :slovo first :trazeno [op first :zamjena]
op obrni :slovo bf :trazeno bf :zamjena
end

to radi :n :rijec :trazeno :zamjena
if :n<1 [op :rijec]
op radi (:n-1) (word bf :rijec obrni first :rijec :trazeno :zamjena) :trazeno :zamjena
end

to zamjena :r :t :z
if (or (not (wordp :r)) ~
	(not (wordp :t)) ~
	(not (wordp :r)) ~
	(not (equalp count :t count :z))) [stop]
op radi count :r :r :t :z
end