[ create a new paste ] login | about

neetsdkasu

Name: Leonardone @ NEETSDKASU
Email:
Site/Blog: https://gravatar.com/neetsdkasu
Location: Japan
Default language:
Favorite languages:
About: I can't do anything right.

Saved pastes by neetsdkasu:

Haskell, pasted on Jul 29: 
1
2
3
4
5

main = print $ length . filter id $ map (\x -> solve x == solve2 x) [1..100]

solve n = ans where
    ans = fst $ foldl h (0, 0) $ map g [1..n]
    g x = (x, f 0 x)
...
view (12 lines, 1 line of output)
Haskell, pasted on Apr 6: 
1
2

main :: IO ()
main = putStrLn "Hello, world!"
view (2 lines, 1 line of output, 1 comment)