Perl 6 One Liners

perl6_one_liners

-- Inspired by http://solog.co/47/10-scala-one-liners-to-impress-your-friends/

# Double everything in a list
(1..10).map(* * 2)

# Sum a list of numbers 
(1..1000).sum

# TODO: Verify if exists in a string
#any (`elem` ["haskell", "ghc", "monads", "cabal"]) $ words "this is a piece of example text talking about haskell and ghc"

# read in a file
'file.txt'.IO.lines

# TODO: Sing happy birthday
#putStr "Who's the birthday boy then? > " >> getLine >>= (\name ->  mapM_ (\i -> putStrLn $ "Happy Birthday" ++ (if (i == 3) then " dear " ++ name else " to you!")) [1..4])

# Filter/partiton a list of numbers 
(49, 58, 76, 82, 88, 90).classify(* > 60)

# Fetch and Parse an XML web service

# Find a minimum or maximum in a list
(14, 35, -7, 46, 98).max
(14, 35, -7, 46, 98).min