1votos

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

por josejuan hace 4 años

Para hacerlo por módulos, hay que considerar el logaritmo decimal de n.

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
[n | n <- [1..500], n^2 `mod` (10 ^ (ceiling $ logBase 10 $ 1e-6 + fromIntegral n)) == n] 
 
-- Obviamente no es preciso calcular el logaritmo 
 
[n | p <- [1..3], n <- [10^(p-1)..10^p-1], n <= 500, n^2 `mod` 10^p == n] 
 
-- Pero vamos, más sencillo con `isInfixOf`... :D 
1 comentario

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.