Oh, du är så häftig, KID. Kom och ta mig du manlige Gudsverk :>

XMinGrönaLampaÄrDödX:

Oh, du är så häftig, KID. Kom och ta mig du manlige Gudsverk :>

Folk som kan programmera är bättre i sängen och kan förstöra din dator (även om dom flesta förstör sin dator bra på egen hand). Vår i övrigt antisociala läggning gör oss habila och våldsamma. Driv inte med oss.

21st Century Adonis:

Vår i övrigt antisociala läggning gör oss habila och våldsamma. Driv inte med oss.

Hon är ihop med Mario 😛

Hampie:

Hon är ihop med Mario 😛

Det där var ju lite för roligt för att vara sant.

XMinGrönaLampaÄrDödX:

jag ber om ursäkt.

KID_IS_BACK:

Plockar vi bort alla typdeklarationer och kommentarer får vi:

Det är ajabaja på att ta bort typdeklarationerna, har ni inte fått lära er det?

Och bara för att dom som kan ruby inte ska skratta ut mig och kissa i mitt ansikte så:

def wordfilter(m, wf)
	wf.each_key { |k| m.sub!(k, wf[k]) }
	m
end
puts wordfilter("loli! Min penis luktar bajs", { 'loli' => "arne dahl", 'penis' => 'mangyna', 'bajs' => "skit" })

Datapata:

Det är ajabaja på att ta bort typdeklarationerna, har ni inte fått lära er det?

Tss, riktiga män strävar efter att göra koden så invecklad och svårläst som möjligt.

KID_IS_BACK:

Tss, riktiga män strävar efter att göra koden så invecklad och svårläst som möjligt.

http://en.wikipedia.org/wiki/Larry_Wall ???

21st Century Adonis:

Hampie: Hon är ihop med Mario 😛

Det där var ju lite för roligt för att vara sant.

XMinGrönaLampaÄrDödX:

jag ber om ursäkt.

:'>

I TRIED BINARY TREE!!11

module BinaryTree where

data BinaryTree a = Empty
                  | LeafNode (Int, a)
                  | NonLeafNode (Int, a) (BinaryTree a) (BinaryTree a)
                      deriving (Eq, Show)

insert :: Ord a => BinaryTree a -> (Int, a) -> BinaryTree a
insert Empty b = LeafNode b
insert (LeafNode a) b        | b > a     = NonLeafNode a Empty (LeafNode b)
                             | otherwise = NonLeafNode a (LeafNode b) Empty
insert (NonLeafNode a l r) b | b > a     = NonLeafNode a l (insert r b)
                             | otherwise = NonLeafNode a (insert l b) r

showAll :: Show a => BinaryTree a -> String
showAll Empty                    = ""
showAll (LeafNode (n, a))        = (show n) ++ ": " ++ (show a) ++ "
"
showAll (NonLeafNode (n, a) l r) =
    (showAll l) ++ (show n) ++ ": " ++ (show a) ++ "
" ++ (showAll r)

find :: BinaryTree a -> Int -> (Int, a)
find Empty  _                               = error "Item not in list"
find (LeafNode (i, a)) n        | i == n    = (i, a)
                                | otherwise = error "Item not found in list"
find (NonLeafNode (i, a) l r) n | n == i    = (i, a)
                                | i < n     = find r n
                                | otherwise = find l n

Srsly, hur många hundra rader hade det där tagit i C?

KID_IS_BACK:

Srsly, hur många hundra rader hade det där tagit i C?

1? linebreak är inte obligatoriskt...

Gifted:

1? linebreak är inte obligatoriskt...

Mycket lustigt. Även i Haskell hade det gått att skriva alltihop på en rad.

KID_IS_BACK:

Mycket lustigt. Även i Haskell hade det gått att skriva alltihop på en rad.

Hmm. jag skrev ett C-program som konverterar insträng till morsekod. Utan att använda mer än ett semikolon, inga if-satser, inga for-loopar eller while-loopar..

haskell < C

Gifted:

Hmm. jag skrev ett C-program som konverterar insträng till morsekod. Utan att använda mer än ett semikolon, inga if-satser, inga for-loopar eller while-loopar..

Hur gjorde du då? Känns intressant att veta.

iddqd:

Hur gjorde du då? Känns intressant att veta.

Jag fulade mig brutalt genom att använda rekursion på main-funktionen (den enda funktionen i mitt program f.ö) och användandet av ?-operatorn istället för klassiska if-satser...

programmet är ju inte direkt snällt för minnet, och skriver till oallokerat minne, men det funkar...