0votos

Flota de Camiones. (con recursividad en cualquier lenguaje) en Haskell

por josejuan hace 4 años

.

Números del 1 al 500 cuyos cuadrados terminen en el número en cuestión. Por ejemplo el numero 25 ya que 25^2 = 625.

1
2
3
4
5
6
7
import Data.List 
 
cumple :: Int -> Bool 
cumple n = isSuffixOf (show n) (show $ n^2) 
 
camiones :: [Int] 
camiones = filter cumple [1..500] 
2 comentarios
0votos

Escrito por Antonio Medina hace 4 años

Que tal josejuan. Podrias poner el resultado como comentario para comparar resultados.saludos.
1votos

Escrito por josejuan hace 4 años

Es obvio que es correcto (viendo el código que no es más que la definición indicada) pero bueno:
Prelude Data.List> mapM_ (\n -> putStrLn $ show n ++ "^2 = " ++ show (n^2)) camiones 
  1^2 = 1
  5^2 = 25
  6^2 = 36
 25^2 = 625
 76^2 = 5776
376^2 = 141376

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.