fork download
copy 
  1. import Data.Char
  2. import Data.Int
  3.  
  4. crack :: Int -> [Int64]
  5. crack n = helper n 0 0
  6.   where helper 0 _ acc
  7.           | acc == f acc  =  [acc]
  8.           | otherwise     =  []
  9.         helper k from acc = concat [ helper (k-1) c (acc + ps !! c) | c <- [from..9] ]
  10.         ps = map (^13) [0..9]
  11.         f acc = sum [ ps !! (digitToInt c) | c <- show acc ]
  12.  
  13. main = mapM_ print (crack 15)
Success #stdin #stdout 2.97s 6288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
1
564240140138
https://ideone.com/83WKRM
language:
Haskell (ghc 8.4.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!