fork(1) download
copy 
  1. prods = [a*b | a <- numbers, b <- numbers] where numbers = [1..100]
  2. stats = map (\d -> (d, length $ filter (\p -> p `mod` d == 0) prods)) [1..10]
  3. main = print stats
Success #stdin #stdout 0s 6236KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[(1,10000),(2,7500),(3,5511),(4,5000),(5,3600),(6,4100),(7,2604),(8,3075),(9,2563),(10,2700)]
https://ideone.com/z3MsU3
language:
Haskell (ghc 8.4.4)
created:
10 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!