rendered paste body fun findempo [] (x,y) = false
| findempo S (x,y) = if hd S = (x,y) then true else findempo (tl S) (x,y);
fun voltes xmax ymax Tmax (xage,yage) (xtel,ytel) L =
if ( (Tmax = 0) andalso (xage = xtel) andalso (yage = ytel) ) then
1
else if ( (Tmax <= 0) orelse (Tmax > 15) orelse ( xage <= 0 ) orelse ( yage <= 0 )
orelse ( xage > xmax ) orelse ( yage > ymax )
orelse not ( findempo L (xage,yage) ) ) then
0
else letsgo xmax ymax Tmax (xage,yage) 5;
fun pamevoltes xmax ymax Tmax (xage,yage) n =
if (n = 4) then voltes xmax ymax (Tmax-1) ((xage-1),yage) (xtel,ytel) L
else if (n = 3) then voltes xmax ymax (Tmax-1) ((xage+1),yage) (xtel,ytel) L
else if (n = 2) then voltes xmax ymax (Tmax-1) (xage,(yage-1)) (xtel,ytel) L
else if (n = 1) then voltes xmax ymax (Tmax-1) (xage,(yage+1)) (xtel,ytel) L
letsgo xmax ymax Tmax (xage,yage) acc =
if (acc = 0) then 0
else pamevoltes xmax ymax Tmax (xage,yage) (acc - 1)