0votos

La ruta mas rapida del SENO en Haskell

por josejuan hace 6 años

Versión iterativa.

Se trata del ejercicio SENO sin lazos simplemente que esta vez unicamente tienes que conseguir el camino mas corto del inicio al fin.

1
2
3
shortCut=s(0,0) 
 where s(a,b)(x:xs)=s(case x of;'N'->(a+1,b);'S'->(a-1,b);'E'->(a,b+1);_->(a,b-1))xs 
       s(a,b)_=concatMap(uncurry((.repeat).take))$zip [a,-a,b,-b] "NSEO" 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.