moonmaster9000

c2 = addBook "Garden of Rama" clarke

moonmaster9000

addAuthor a (Book b as) = Book b ((createAuthor a [b]):as)
addBook b (Author a bs) = Author a ((createBook b [a]):bs)

moonmaster9000

clarkeBooks = map title $ books clarke
 -- ["2001: A Space Odyssey", "Rama!"]

moonmaster9000

clarke.books.map {|b| b.title}
  # ==> ["2001: A Space Odyssey", "Rama!"]

moonmaster9000

clarke = createAuthor "Arthur C. Clarke" ["2001: A Space Odyssey", "Rama!"]

moonmaster9000

module Library where

data Author = 
  Author { 
    name  :: String, 
    books :: [Book]   
  } deriving (Show)

data Book = 
  Book { 

moonmaster9000

clarke = Author.new "Arthur C. Clarke"
odyssey = Book.new "2001: A Space Odyssey"

clarke.books << odyssey
odyssey.authors << clarke

moonmaster9000

class Author
  attr_accessor :name, :books
  
  def initialize(name)
    @name = name
    @books = []
  end
end

class Book

moonmaster9000

module LineEndingConverter
where

-- splits a string into substrings based on the newlines
-- and handles both windows and unix style line endings
splitLines []     = []
splitLines string = firstLine : remainingLines
  where
    (firstLine, rest) = break carriageReturnOrLineFeed string
    remainingLines    = 

moonmaster9000

import System.Environment (getArgs)
import LineEndingConverter

main = 
  do
    args <- getArgs
    
    case args of
      [input,output] -> 
        transformFileWith transformerFunction input output