www.jammni.de

ERROR file:.\io Eliza(1).hs:44 - Type error in application
*** Expression     : lookup value hilfsliste
*** Term           : value
*** Type           : Int
*** Does not match : Integer

ERROR file:.\io Eliza(richtig).hs:19 - Type error in application
*** Expression     : elizahelp (words (großschreiben str)) elizadatenbank
*** Term           : elizadatenbank
*** Type           : [([Char],[Char])]
*** Does not match : [(a,IO ())]

import System.Random
import Char

-- Oberen Teil nicht verändern! 

start 
	= do line <- getLine
	     res <- return (line == "exit")
	     if (not res) then do putStrLn (eliza line)
				  start 
		          else return ()

-- Ab hier dürft Ihr den Quelltext verändern!


eliza str = elizahelp (words (großschreiben str)) elizadatenbank


-- Klein-/Großschreibung wird irrelevant

großschreiben [] = []
großschreiben (x:xs) = (toUpper x):(großschreiben xs)


-- Durchsuchen der Datenbank auf Stichworte

enthalten [] ((a,b):ys) = False
enthalten (x:xs) ((a,b):ys) 
	|x == a = True
	|otherwise = enthalten xs ((a,b):ys)


-- Auswerfen von der Antwort ( zweite Liste / b)

elizahelp (x:xs) [] = roll
elizahelp (x:xs) ((a,b):ys)
	|enthalten (x:xs) ((a,b):ys) == True = b
	|otherwise = elizahelp (x:xs) ys

rollDice :: IO Int
rollDice = getStdRandom (randomR (1,6))

roll = do 
        value <- rollDice
        print $ lookup value hilfsliste

hilfsliste :: [(Int, String)]
hilfsliste = [(1,"Weiter"),(2,"Danke"),(3,"Erzaehlen sie mehr"),(4,"Fahren sie fort"),(5,"Und weiter?"),(6,"Da müssen sie mir schon mehr erzaehlen")]

elizadatenbank = [("HALLO","Wie geht es Ihnen?"),("MUSIK","Spielen Sie auch ein Instrument?"),("GUT","Das ist schoen. Was haben Sie heute gemacht?"),("MITTELMÄßIG", "Dann fangen Sie doch mit dem positiven an!"),("ARBEIT","Was ist Ihr Beruf? Erzaehlen Sie mir mehr!"),("SCHULE","In welche Klasse gehen Sie?"),("SPORT","Welche Sportart betreiben Sie?"),("FUßBALL","Ich sehe mir gerne Fußball im Fernsehen an. Seit wann spielen Sie?")]

ERROR file:.\Eliza_hilfe.hs:16 - Type error in application
*** Expression     : elizahelp (words (großschreiben str)) elizadatenbank
*** Term           : elizadatenbank
*** Type           : [([Char],[Char])]
*** Does not match : [(a,IO ())]

elizahelp (x:xs) [] = roll
elizahelp (x:xs) ((a,b):ys)
    |enthalten (x:xs) ((a,b):ys) == True = b

start 
	= do line <- getLine
	     res <- return (line == "exit")
	     if (not res) then do putStrLn (eliza line)
				  start 
		          else return ()

-- Ab hier dürft Ihr den Quelltext verändern!

ERROR file:.\io Eliza(richtig).hs:9 - Type error in application
*** Expression     : putStrLn (eliza line)
*** Term           : eliza line
*** Type           : IO ()
*** Does not match : [Char]