#haskell - Wed 14 Mar 2007 between 06:16 and 06:25

NY Lost Funds



lambdabotCouldn't match expected type `[Char] -> t'
nornagondoh.
:t fix
nmessenger> fix show
lambdabotforall a. (a -> a) -> a
"\"\\\"\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\...
nornagon@karma+ nmessenger
lambdabotnmessenger's karma raised to 7.
nmessenger> foldr (.) id (replicate 4 show) $ "hi"
lambdabot"\"\\\"\\\\\\\"\\\\\\\\\\\\\\\"hi\\\\\\\\\\\\\\\"\\\\\\\"\\\"\""
narain> concatMap ((++"\"") . flip repeat '\\' . (2**)) [0..]
lambdabotCouldn't match expected type `b -> c' against inferred type `[b1]'
nmessengerflip replicate?
narain> concatMap ((++"\"") . flip replicate '\\' . (2**)) [0..]
lambdabotadd an instance declaration for (Floating Int)
narain:(
nmessenger(2^)?
narain:t (^)
lambdabotforall a b. (Integral b, Num a) => a -> b -> a
narain> concatMap ((++"\"") . flip replicate '\\' . (2^)) [0..]
lambdabot"\\\"\\\\\"\\\\\\\\\"\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\...
narainbah, extra escaping
> let s1 = fix show; s2 = concatMap ((++"\"") . flip replicate '\\' . (subtract 1) (2^)) [0..] in concatMap (show . fromEnum) $ zipWith (==) s1 s2
nmessenger> concatMap ((++"\"") . flip replicate '\\') (scanl1 (+) [0..])]
lambdabotadd an instance declaration for (Num (a -> Int))
Parse error
nmessenger> concatMap ((++"\"") . flip replicate '\\') (scanl1 (+) [0..])
lambdabot"\"\\\"\\\\\\\"\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\...
narain> let s1 = fix show; s2 = concatMap ((++"\"") . flip replicate '\\' . (subtract 1) (2^)) [0..] in s2
lambdabotadd an instance declaration for (Num (a -> Int))
narain> let s1 = fix show; s2 = concatMap ((++"\"") . flip replicate '\\' . (subtract 1) . (2^)) [0..] in s2
lambdabot"\"\\\"\\\\\\\"\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\...
narain> let s1 = fix show; s2 = concatMap ((++"\"") . flip replicate '\\' . (subtract 1) . (2^)) [0..] in zipWith (==) s1 s2
lambdabot[True,True,True,True,True,True,True,True,True,True,True,True,True,True,True,...
nmessenger> let x = concatMap ((++"\"") . flip replicate '\\') (scanl1 (+) [0..]); y = fix show in take 1000 x == take 1000 y
narainaha
lambdabotFalse
narainhuh?
nmessenger> let x = concatMap ((++"\"") . flip replicate '\\') (scanl1 (+) [0..]); y = fix show in take 10 x == take 10 y
lambdabotTrue

Page: 5 12 19 26 33 40 47 54 61 68 75 82 89 96 103 110 117 124 131 

IrcArchive

NY Lost Funds