# HG changeset patch # User HackBot # Date 1383432008 0 # Node ID 5db7fb79f86d257bb89debca6f0ba3a294f7b9ff # Parent 610f86902ec384a0d31e50199ef80b7526c791e8 pastelog \\[ x \\| diff -r 610f86902ec3 -r 5db7fb79f86d paste/paste.14653 --- /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: 1> [ X || {a, X} <- [{a,1},{b,2},{c,3},{a,4},hello,"wow"]]. +2009-06-05.txt:15:41:48: 8> [ X || {a, X} <- [{a,1},{b,2},{c,3},{a,4},hello,"foo"]]. +2009-06-25.txt:16:29:47: > let primes = [ x | x <- [2..], not (any ((== 0) . (`mod` x)) primes) ] in primes +2009-10-05.txt:20:19:29: [ x | x ] is lambda x . x +2010-03-09.txt:12:36:43: alise: planned Feather syntax is [ x | f x ] +2010-03-09.txt:15:00:03: alise: planned Feather syntax is [ x | f x ] <-- yay Feather! +2013-02-21.txt:00:01:01: 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: 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]