Raynes

*Main> concat $ take 10 $ repeat ",.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/"
",.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/,.,.,.,.,.,/,.,.,.,.,.,.,.,./.,.,.,.,.,.,.,.,.,.,/"
*Main> 

Raynes

module CountLines where

import System.Environment

main = do
  args <- getArgs
  file <- readFile $ head args
  putStrLn $ show $ length $ lines file

Raynes

splitDigits :: String -> [Int]
splitDigits = map digitToInt

addNum :: String -> Int
addNum = foldl' (+) 0 . splitDigits

Raynes

splitDigits :: String -> [Int]
splitDigits = map digitToInt

addNum :: Int -> Int
addNum = foldl' (+) 0 . splitDigits . show

Raynes

Sub TakeVacation()
Dim Vacation As String
Dim Approved As String

If Approved = "Yes" Then
Vacation = "Is Approved"
Else : If Approved = "No" Then
Vacation = "Denied"
End If
End If

Raynes

module Main where

import Control.Monad
import Data.List
import Data.Char
import System.IO

getSecondWord = head . tail . words
getLastWord = last . words

Raynes

countLetters = length . filter (/= ' ')

Raynes

module Main where

import Control.Monad
import Data.List
import Data.Char
import System.IO
import Text.Regex.Posix
import Text.Regex

getSecondWord = head . tail . words

Raynes

countLetters xs = 
    length $ filter (/= ' ') $ subRegex (mkRegex "[^aA-zZ]") xs ""

Raynes

module Main where

import Control.Monad
import Data.List
import Data.Char
import System.IO
import Text.Regex.Posix
import Text.Regex

getSecondWord :: String -> String