fork download
copy 
  1. import Data.List
  2. import Data.Function
  3.  
  4. isPrick :: Integer -> Bool
  5. isPrick = (== 1) . length . nubBy ((==) `on` (sort . show)) . flip map [1..6] . (*)
  6.  
  7. main :: IO ()
  8. main = print $ find isPrick [1..]
Success #stdin #stdout 4.75s 3592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Just 142857
https://ideone.com/NTDl4
language:
Haskell (ghc 8.4.4)
created:
14 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!