1votos

Factorion en Haskell

por josejuan hace 6 años

La corta, que además es la de poca memoria.

Sabiendo que no hay factoriones mayores que 2.500.000, encontrarlos a todos.

1
filter(\x->x==(sum.map(\y->product[1..ord y-48]).show)x)[1..2500000] 
2 comentarios
0votos

Escrito por amvieites hace 6 años

Increible. Me encanta ;)
0votos

Escrito por josejuan hace 6 años

Me alegro, sin embargo, las interesantes son las otras dos que he posteado ;)

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.