Submission #1520808
Source Code Expand
primes :: Integral a => [a] primes = 2 : 3 : [x | i <- [1 ..], j <- [-1, 1], let x = 6 * i + j, isPrime x] where isPrime n = null [i | i <- takeWhile (\p -> p * p <= n) primes, mod n i == 0] main = putStrLn $ unlines $ map show $ take 100 [x*10 | i<-[1..], let x = until (<=100000000) (`div` 3) $ until (>100000000) (*3) (2*i)]
Submission Info
Submission Time | |
---|---|
Task | A - 約数をたくさんつくろう! |
User | aimy |
Language | Haskell (GHC 7.10.3) |
Score | 3196 |
Code Size | 339 Byte |
Status | AC |
Exec Time | 1 ms |
Memory | 508 KB |
Judge Result
Set Name | test_01 | ||
---|---|---|---|
Score / Max Score | 3196 / 100000 | ||
Status |
|
Set Name | Test Cases |
---|---|
test_01 | noinput.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
noinput.txt | AC | 1 ms | 508 KB |