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 flip map [1..6] . (*)
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:8:20:
    Couldn't match expected type `Bool'
           against inferred type `b -> a -> c'
    Probable cause: `flip' is applied to too few arguments
    In the first argument of `find', namely `flip'
    In the first argument of `(.)', namely `find flip map ([1 .. 6])'
stdout
copy 
Standard output is empty
https://ideone.com/PsDEo
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!