Zdravim, je tu nejaky zdatny haskell programator? mam mensi problem s programom, ak niekto tu taky je a ma cas 5 minut nech mi napise PM, vdaka

Si na verejnom fóre. Ak máš problém, zverejni ho, nech je na očiach.

BX napísal:Si na verejnom fóre. Ak máš problém, zverejni ho, nech je na očiach.

type HashedPassword = Int
type PassDB = [(String, HashedPassword)]
db :: PassDB
db = [("Matus",258724081),("Mattias",17496271),("Konkol",914711)]
login :: PassDB -> String -> String -> Bool
login [] x y = False
login (d:db) x y | (fst d == x) && (snd d == foldl code 0 y) = True
| otherwise = login db x y
where code x y = x * 20 + ord y
addPassword :: (String,String) -> PassDB -> PassDB
addPassword (x,y) db = (x,foldl code 0 y):db
where code x y = x * 20 + ord y

mam takyto kod, neviem proste co zadat na vstup, ak mi niekto moze pomoct bol by som vdacny

Ja sa v Haskelly trochu vyznam, len si daj ten kod tak ako ma byt (podla pravidiel) a specifikuj co znamena "co zadat na vstup".

mam ho podla pravidiel, len tu ho prehodilo trosku, viem pridat pouzivatela do db ale potom mi uz login stale hadze false,
proste mi nehodi true, neviem preco, nevie niekto fakt poradit?

nemas kod patri do tagov code,
skus zmazat
riadky Podla mna moze robit problem to, ze mas "premennu" db aj funkciu db

//autoeditácia príspevku (03 Apr 2013, 18:36)
este je druha moznost - tie funkcie pouzivas zle

7. Definujte funkciu, ktorá realizuje prihlasovanie používatela do systému. Nech
funkcia ako parametre prijíma databázu používatelov, meno a heslo. Heslá sú
v databáze ukladané v šifrovanej podobe.
type HashedPassword = Int
type PassDB = [(String, HashedPassword)]
login :: PassDB -> String -> String -> Bool

Definujte tiež funkciu pre pridanie používatela do databázy.
addPassword :: (String,String) -> PassDB -> PassDB

ako by si to ty robil? toto mam za ulohu...

Zdanie mas hotove, mne tie vsetky funkcie pripadaju v poriadku.
Nechaj si vypisat co vrati addPassword ("aaaa","bbb") []