하스켈, 나는 ATM 함수와 같은 것을 만들 필요가있다. txt 파일에 여러리스트를 저장하고 레코드를 가져와야한다.

Question

Im haskell에 새로운 것이있다. 나는이 프로그램에 도움이 필요하다. 먼저 input.txt에 세 개의 계정을 저장하므로 파일 내부에 [ "1", "steven", "4000", "12345"] [ "2", "Marcus", "5000 ","123456 "] ["3 ","Ivan ","7000 ","12345 "] ID, 이름, 잔액 및 비밀번호 인 계정에는 3 개의 변수가 있습니다. 내가하고 싶은 것은 : 사용자가 암호를 입력하면

1. 이 프로그램은 사용자 유형 그 암호를 사용하여 목록에 암호를 비교합니다 마지막으로 특정 레코드를 보여

2. 때 사용자를 돈을 다른 사용자에게 양도하려고합니다. 먼저 ID를 넣고 두 번째는 금액을 입력하고 마지막으로 첫 번째 계정은 돈을 줄이고 두 번째 계정은 돈을 늘립니다.

3. 내가 직면 한 문제는 비교, 철회 및 이전하기 위해 어떻게 하나의 계정을 읽을 수 있는가입니다. 그것을 할 수있는 더 좋은 방법이 있습니까?

감사

실제로

import System.IO 

i :: IO() 
i = do 
    putStrLn "your ID : " 
    id<-getLine 
    putStrLn "your name : " 
    name<-getLine 
    putStrLn "balance : " 
    bal<- getLine 
    putStrLn "password : " 
    pass<- getLine 
    let store2 = [id]++[name]++[bal]++[pass] 
    appendFile "input.txt" (show store2) 

huhu ::IO() 
huhu = do 
    putStrLn "ID : " 
    id<-getLine 
    putStrLn "Password : " 
    pass<-getLine 
    rec <- readFile "input.txt" 
    if ("pass" == rec) then 
     do 
     putStrLn "show information" 
    else 
     do 
     putStrLn "Wrong password" 

Answer 1

제대로 구조화 된 데이터로 바로 들어가야한다고 생각합니다. 먼저, 문제를 해결하는 데 도움이되는 몇 가지 데이터 유형을 정의하십시오.

type ID = Int 
data Account = Account {idno::ID, 
         name :: String, 
         balance :: Int, 
         password :: String} deriving (Read,Show) 

원하는 경우 다른 유형을 선택할 수 있습니다. 이 수 당신은 데이터 레이블 idno도 편리한 기능 Account -> ID 얼마나

sameID :: ID -> Account -> Bool 
sameID anID account = idno account == anID 

공지 사항과 같은 기능을 정의합니다. 우리는 기능을 테스트하는 데 사용할 수 있습니다

sampleData = [Account 385634 "Fred" 234 "Iluvw1lm4", 
       Account 405382 "Barney" (-23) "pebbles", 
       Account 453464 "Wilma" 1432 "c4r3fu1n355 br33d5 pr0sp3r:ty"] 

(와 바니는 암호 보안이나 재무 관리에 대한 아무런 단서가 없다고 추론) : 우리는 테스트를 위해 일부 샘플 데이터를 사용합니다.

이제 Data.Map을 사용하여 ID를 사용하여 계정을 저장할지 또는 목록을 사용할지 결정해야합니다. 목록은 파일에서 읽기 쉽지만지도는 찾기 쉽습니다. 그래서 중 하나를 수행합니다

type Accounts = [Account] 

또는 사용지도 :

import qualified Data.Map as Map -- Put this at the top of the file if so. 
type Accounts = Map.Map ID Account 

어느 방법을 당신이지도를 사용하는 경우는

findUserByID :: Accounts -> ID -> Maybe Account 
findUserByID = undefined -- you can work this out 

이 필요합니다, 당신은 그것을 찾을 필요가있다. 어떤 경우 든 documentation을 찾아 보거나 the hoogle search engine을 사용하여 찾아보십시오. 확실하지 않은 경우 Map ID Account -> Maybe Account에 대해 Google 계정을 사용할 수 있으며 ID 또는 계정에 대해 알지 못한다는 경고가 표시되지만 필요한 기능이 있습니다.Map id account -> Maybe account을 검색하는 것이 좋을 것이므로 일반 기능을 사용할 수 있음을 알고 있습니다.

목록을 사용하는 경우 ID가 일치 할 때 사실을 제공하는 함수로 목록을 filter해야합니다. 그렇지 않으면 sameID이 도움이됩니다.

당신은 또한 당신이 목록을 사용하는 경우 쉽게,하지만 것,지도를 사용하는 경우

updateUsingID :: Account -> Accounts -> Accounts 
updateUsingID acc = updateByID (idno acc) acc 

될 것

updateByID :: ID -> Account -> Accounts -> Accounts 
updateByID anId newaccount = undefined -- you can work this out too 

하지만 훨씬 더 많은 도움이 필요합니다

, 당신 당신은

를 정의 할 수있다 '는에 map에

onlyChange :: Account -> (Account -> Account) 
onlyChange newacc acc | idno acc == idno newacc = newacc 
         | otherwise = acc 

같은 기능이 필요 것이다 changePassword의 아이디어와 기능 balance를 사용

changePassword :: String -> Account -> Account 
changePassword newpwd acc = acc {password = newpwd} 

같은 17,451,515,

showAccount :: Account -> String 
showAccount acc = undefined -- use the functions, eg name acC++ .... 
          -- or just use show 

과 기능, 당신은 당신이 쓸 수있는 그런

changeBalance :: (Int -> Int) -> Account -> Account 
changeBalance = undefined -- you try 

을 쓸 수 있어야

pay :: Int -> Account -> Account -> (Account,Account) 
pay amount fromAcc toAcc = undefined 

힌트 : 사용 changeBalance (+ amount) 및 changeBalance (subtract amount).

마지막으로 당신이

updateTwoUsingID :: (Account,Account) -> Accounts -> Accounts 
updateTwoUsingID (new1,new2) = updateUsingID new1 . updateUsingID new2 

필요합니다 나는 당신을 말하는 저항 할 수있는 일이 기능 조성물의 아름다운 예이기 때문에.

Maybe Account 항목을 사용하기가 어렵다면 끝까지 파일 IO를 무시하는 것처럼 끝까지 무시하십시오. Maybe으로 작업 할 때 fmap 및 >>=과 같은 기능을 사용하면 편리합니다. 그들을 보거나, 아마도 지금은 아마도 도랑을 털고 열심히 사용하십시오. error. 예를 들어 Map의 !은 Nothing 대신 오류를 표시합니다. 런타임 오류보다 좋을 수도 있지만 지금은 오류가 발생하지 않을 수 있습니다.

할 일을 함께 붙인 다음 파일 입력/출력을해야합니다. 파일 입/출력의 경우 Accounts에서 read 및 show을 사용하는 것이 가장 간단합니다.

이렇게하지 않아도됩니다. 이것은 한 가지 방법 일뿐입니다. (글쎄, 두, 당신이 두 가지 접근 방식으로 목록 대지도를 계산하는 경우.) 재미있게 보내라!

Answer 2

모든 문제는 세번째 질문에 요약된다. 찾고있는 것은 사용자 계정에 대한 사용자 이름을 허용하는 데이터 구조입니다. Data.Map 컨테이너 유형을 살펴보고 사용 방법을 확인하십시오.