#haskell - Mon 19 Feb 2007 between 02:34 and 02:41

NY Lost Funds



lambdabotControl.Parallel.Strategies.Assoc :: data Assoc a b
Text.ParserCombinators.Parsec.Expr.Assoc :: data Assoc
Array.assocs :: Ix a => Array a b -> [(a, b)]
nornagon@hoogle Graph
lambdabotData.Graph :: module
Data.Graph.Inductive.Graph :: module
Data.Graph.Graph :: type Graph
encryptio@where obsfucated
lambdabotI know nothing about obsfucated.
encryptiowhere can i find some obsfucated haskell code?
kc5tjaHere's some: :) (.) . (:)
:)
bd_@unpl (.).(:)
lambdabot(\ f b c -> ((:)) f (b c))
bd_encryptio: lambdabot will be happy to generate some for you. Just run virtually anything through @pl :)
encryptiolol
bd_@pl uncurry (/) . foldr (\x -> (+x) *** (+1)) (0,0) $ [1..1000000]
lambdabotuncurry (/) (foldr ((*** (1 +)) . (+)) (0, 0) [1..1000000])
Cheery@pl (+ 2 3)
lambdabot(2 3 +)
bd_hmm, too easy
Cheery> (2 3 +)
lambdabotadd an instance declaration for (Num (t -> a))
bd_@pl let (sum, ct) = foldl' (\(sum, ct) n -> let s' = sum + n; ct' = succ ct in s' `seq` ct' `seq` (s', ct')) (0,0) [1..50000] in sum/ct
Cheery@pl (2 + 3)
lambdabot(line 1, column 5):
unexpected "("
expecting natural, identifier or "in"
5
bd_@pl let x = foldl' (\(sum, ct) n -> let s' = sum + n; ct' = succ ct in s' `seq` ct' `seq` (s', ct')) (0,0) [1..50000] in (fst x / snd x)
lambdabotuncurry (/) (foldl' (uncurry (flip ((.) . flip (ap (ap . (seq .) . seq) (,)) . fix . const . succ) . (+))) (0, 0) [1..50000])
bd_there :)
Cheery@pl \x -> x
lambdabotid
encryptioeesh.
Cheeryhm.
bd_: it does not work for anything. :>
bd_Cheery: Use some variables, tsk >.>
I said virtually anything :P
bosany cabal people around?

Page: 2 9 16 23 30 37 44 51 58 65 72 79 86 

IrcArchive

NY Lost Funds