funrep

module Main where

import Control.Applicative ((<$>))
import Control.Monad.Error
import Text.ParserCombinators.Parsec
import Data.Map (Map)
import qualified Data.Map as M

-- Types

funrep

module Main where

import Control.Applicative ((<$>))
import Control.Monad.Error
import Text.ParserCombinators.Parsec

-- Types

data Expr
  = Sym String

funrep

module Main where

import Control.Applicative ((<$>))
import Control.Monad.Error
import Text.ParserCombinators.Parsec

-- Types

data Expr
  = Sym String

funrep

module Main where

import Control.Monad.Error
import Text.ParserCombinators.Parsec

-- Types

data Expr
  = Sym String
  | List [Expr]

funrep

Vilhelm Moberg

• Mest känd för bokserien Utvandrarna
• Född och uppväxt i Småland
• Började skriva i ung ålder, vann pris när han var 13
• Han skrev även pjäser
• Har bott i amerika flera gånger, men emigrerade aldrig
• Debatterade mycket för sin åsikt som republikan
• Efter lång tid av depression dränkte han sig själv

funrep

module Main where

import Control.Monad.Error
import Text.ParserCombinators.Parsec

-- Types

data Expr
  = Sym String
  | List [Expr]

funrep

module Main where

import Control.Monad.Error
import Text.ParserCombinators.Parsec

-- Types

data Expr
  = Sym String
  | List [Expr]

funrep

module Main where

import Control.Monad.Error
import Text.ParserCombinators.Parsec

-- Types

data Expr
  = Sym String
  | List [Expr]

funrep

addNumbers :: Int -> String -> String
addNumbers x (y:ys)
  | null ys   = []
  | y == '\n' = ("\n" ++ show x ++ " ") ++ (addNumbers (x + 1) ys)
  | otherwise = y : (addNumbers x ys)

main = interact (addNumbers 1)

funrep

module Main where

import qualified Data.Map as M
import Control.Monad.Error

-- Types

data Expr = Sym String
          | Lst [Expr]
          | Num Int