www.jammni.de

--38
--search_book::Booklist->String->(Author,Titel,Publisher,Year,Price) 
--search_book eList t=[((a,author),(ti,titel),(p,publisher),(y,year),(pr,price))|((a,author),(ti,titel),(p,publisher),(y,year),(pr,price))<-eList,substr t titel] 
--41
show_s::[(String)]->IO() 
show_s x = sequence_(map putStrLn (x)) 
--44
show_book::(Author,Titel,Publisher,Year,Price)-> IO() 
show_book ((author,a),(titel,t),(publisher,pub),(year,y),(price,pr))=show_s x 
	where x=(a++s) 
		s = t:pub:(show y):(show pr):[]

type Author=(String,[String])
type Titel=(String,String)
type Publisher=(String,String)
type Year=(String,Int)
type Price=(String,Float)
type Booklist=[(Author,Titel,Publisher,Year,Price)]

exampleList::Booklist
exampleList=new_entry (new_entry [] book) book2

book::(Author,Titel,Publisher,Year,Price)
book=(("author",[("Simon Thomson"),("tufftuff")]),("titel","The craft of functional Programming"),("publisher","Addison-Wesley"),("year",1999),("price",39.95))

book2::(Author,Titel,Publisher,Year,Price)
book2=(("author",[("Dan Gookin")]),("titel","Haskell für Dummies"),("publisher","MitP"),("year",1998),("price",99.99))

new_entry::Booklist->(Author,Titel,Publisher,Year,Price)->Booklist
new_entry list ((author,a),(titel,t),(publisher,pub),(year,y),(price,pr)) =[(("author",a),("titel",t),("publisher",pub),("year",y),("price",pr))]++list

searchTitel::Booklist->String->[String]
searchTitel eList s=[(t)|((author,a),(titel,t),(publisher,pub),(year,y),(price,pr))<-eList,substr s t]

substr :: String -> String -> Bool
substr [] _ = True
substr (_:_) [] = False
substr (x:xs) (y:ys) = substr (x:xs) ys || f_substr (x:xs) (y:ys)
                       where f_substr [] _ = True
                             f_substr (_:_) [] = False
                             f_substr (x:xs) (y:ys) = (x==y) && f_substr xs ys

allAuthors :: Booklist->[Author]
allAuthors eList=[(author,a)|((author,a),(titel,t),(publisher,p),(year,y),(price,pr))<-eList]

num_List::Booklist->[(Int,Titel)]
num_List eList= zip [1..length titels] titels
                where titels=[(titel)|(author,titel,publisher,year,price)<-eList]



show_s::[(String)]->IO()
show_s x = sequence_(map putStrLn (x))

show_book::(Author,Titel,Publisher,Year,Price)-> IO()
show_book ((author,a),(titel,t),(publisher,pub),(year,y),(price,pr))=show_s x
                                                                     where x=(a++s)
                                                                           s=t:pub:( show y):(show pr):[] 

type Author=(String,[String])
type Titel=(String,String)
type Publisher=(String,String)
type Year=(String,Int)
type Price=(String,Float)
type Booklist=[(Author,Titel,Publisher,Year,Price)]

author ="Autor"
titel = "Titel"
publisher="Verlag"
year="Jahr"
price="Preis"

--erzeugt eine Liste von buechern
--aufruf mit -->exampleList
--man macht zunächst einen eintrag in eine leere Liste und dann nen eintrag in einen liste mit einen element usw
--eben alles verschachtelt
exampleList::Booklist
exampleList=new_entry(new_entry(new_entry (new_entry (new_entry [] book) book2) book3)book4)book5

--die buecher, war zwar nicht verlangt aber damit kann man sehr gut show_book testen
--ausserdem ist es einfacher die buecherliste zu erzeugen
--ist doch gleich viel übersichtlicher so oder?
--aufruf mit -->book
book::(Author,Titel,Publisher,Year,Price)
book=((author,[("Simon Thomson"),("tufftuff")]),(titel,"The craft of functional Programming"),(publisher,"Addison-Wesley"),(year,1999),(price,39.95))

book2::(Author,Titel,Publisher,Year,Price)
book2=((author,[("Dan Gookin")]),(titel,"Haskell fuer Dummies"),(publisher,"MitP"),(year,1998),(price,99.99))

book3::(Author,Titel,Publisher,Year,Price)
book3=((author,[("Autor a"),("Autor b")]),(titel,"Haskellchen"),(publisher,"Markt und Technik"),(year,1885),(price,49.95))

book4::(Author,Titel,Publisher,Year,Price)
book4=((author,[("Klaus Taler"),("Mobby"),("Hannes")]),(titel,"Haskell 2.0"),(publisher,"Bayer"),(year,1995),(price,35.95))

book5::(Author,Titel,Publisher,Year,Price)
book5=((author,[("Charly")]),(titel,"functional Programming"),(publisher,"ABC Verlag"),(year,1990),(price,9.99))

--new_entry erweitert eine bücherliste um einen eintrag
--list ist die eingegebene Liste
--aufruf mit-->new_entry exampleList ((author,"ein Autor"),(titel,"ein Titel"),(publisher,"ein Verlag"),(year,"Erscheinungsjahr"),(price,"der Preis"))
--man kann es auch so aufrufen new_entry [] book
 
new_entry::Booklist->(Author,Titel,Publisher,Year,Price)->Booklist
new_entry list ((author,a),(titel,t),(publisher,pub),(year,y),(price,pr)) =[((author,a),(titel,t),(publisher,pub),(year,y),(price,pr))]++list

--sucht einen Titel in einer bücherliste
--benutzt die Funktion sub_str
--Aufruf mit searchTitel exampleList "Haskell"
searchTitel::Booklist->String->[String]
searchTitel eList s=[(t)|((author,a),(titel,t),(publisher,pub),(year,y),(price,pr))<-eList,substr s t]

--kuckt ob ein string teil eines anderen string ist
substr :: String -> String -> Bool
substr [] _ = True
substr (_:_) [] = False
substr (x:xs) (y:ys) = substr (x:xs) ys || f_substr (x:xs) (y:ys)
                             where f_substr [] _ = True
                                      f_substr (_:_) [] = False
                                      f_substr (x:xs) (y:ys) = (x==y) && f_substr xs ys

--gibt die Liste aller autoren in einer Bücherliste zurück
allAuthors :: Booklist->[Author]
allAuthors eList=[(author,a)|((author,a),(titel,t),(publisher,p),(year,y),(price,pr))<-eList]

--nummeriert die titel durch
--aufruf mit num_List exampleList
num_List::Booklist->[(Int,Titel)]
num_List eList= zip [1..length titels] titels
                      where titels=[(titel)|(author,titel,publisher,year,price)<-eList]

--eine hilffunktion um eine Liste von Strings auszugeben
show_s::[(String)]->IO()
show_s x = sequence_(map putStrLn (x))

--zeigt ein Buch
--aufruf mit -->show_book book2
--show_book benutzt auch noch die show-funktion von haskell,damit werden der preis
--und das Jahr in Strings umgewandelt und dann zu einer Liste von Strings (x) zugefügt
--diese wird dann mit show_s ausgegeben
show_book::(Author,Titel,Publisher,Year,Price)-> IO()
show_book ((author,a),(titel,t),(publisher,pub),(year,y),(price,pr))=show_s x

                                                                                          where x=a:t:pub:( show y):(show pr):[]

new_entry example_List book3