Mercurial > repo
changeset 3979:5db7fb79f86d
<hagb4rd> pastelog \\[ x \\|
author | HackBot |
---|---|
date | Sat, 02 Nov 2013 22:40:08 +0000 |
parents | 610f86902ec3 |
children | ee3268630d5b |
files | paste/paste.14653 |
diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/paste/paste.14653 Sat Nov 02 22:40:08 2013 +0000 @@ -0,0 +1,8 @@ +2008-09-02.txt:16:36:21: <AnMaster> 1> [ X || {a, X} <- [{a,1},{b,2},{c,3},{a,4},hello,"wow"]]. +2009-06-05.txt:15:41:48: <AnMaster> 8> [ X || {a, X} <- [{a,1},{b,2},{c,3},{a,4},hello,"foo"]]. +2009-06-25.txt:16:29:47: <ehird> > let primes = [ x | x <- [2..], not (any ((== 0) . (`mod` x)) primes) ] in primes +2009-10-05.txt:20:19:29: <ais523> [ x | x ] is lambda x . x +2010-03-09.txt:12:36:43: <ais523> alise: planned Feather syntax is [ x | f x ] +2010-03-09.txt:15:00:03: <AnMaster> <ais523> alise: planned Feather syntax is [ x | f x ] <-- yay Feather! +2013-02-21.txt:00:01:01: <nooga> i got let d n = [ x | x <- [1..n-1], n `mod` x == 0 ] and let sd n = sum $ d n +2013-02-21.txt:14:04:30: <nooga> http://projecteuler.net/problem=21 my solution: let sd n = sum [ x | x <- [1..n-1], n `mod` x == 0 ] in sum [x | x <- [1..10000], x /= sd x, (sd $ sd x) == x]