Haskell函数式编程基础习题(5)

一时失言乱红尘 2022-08-06 06:27 93阅读 0赞

--Exercise 6.47
    makeBill :: TillType -> BillType
    makeBill [t] = [(myLookup t)]
    makeBill (t:ts) = (myLookup t):(makeBill ts)
    
    --Exercise 6.46
    mydatabase:: Database 
    mydatabase = [(123,"egg",23)]
    
    myLookup :: BarCode -> (Name,Price)
    myLookup bcode = look mydatabase bcode
    
    --Exercise 6.45
    look :: Database -> BarCode -> (Name,Price)
    look [] _ = ("Unknown Item",0)
    look ((b,name,price):xs) bcode
    	| b == bcode = (name,price)
    	| otherwise = look xs bcode
    
    --Exercise 6.44
    formatBill :: BillType ->String
    formatBill bill = (formatLines bill) ++ (formatTotal $ makeTotal bill)
    
    --Exercise 6.43
    formatTotal :: Int -> String 
    formatTotal p = "\nTotal......." ++ (show p)
    
    --Exercise 6.42
    type TillType =[BarCode]
    type BillType = [(Name,Price)]
    
    makeTotal::BillType -> Price
    makeTotal [] = 0
    makeTotal ((_,p):xs) = p + (makeTotal xs)
    
    
    --Exercise 6.41
    formatLines :: [(Name,Price)] -> String
    formatLines [] = ""
    formatLines (x:xs) = (formatLine x) ++ (formatLines xs)
    
    --Exercise 6.40
    formatLine ::(Name,Price) -> String
    formatLine (name,p) = name ++".........."++ (formatPence p)++ "\n"
    
    
    type Name = String
    type Price = Int
    type BarCode = Int
    type Database = [(BarCode,Name,Price)]
    --Exercise 6.39
    formatPence :: Price -> String 
    formatPence p = (show (p `div` 100))  ++ "." ++ (show ( mod p 100))
    
    
    --Exercise 6.38
    --Exercise 6.37
    --Exercise 6.36
    --Exercise 6.35

发表评论取消回复

表情：

评论列表（有 0 条评论，93人围观）

还没有评论，来说两句吧...

相关阅读

相关四、Scala函数式编程基础

*目录** 一、函数式编程内容 1、函数式编程基础 2、函数式编程高级 3、几个概念的说明二、函数 1、基本语法 2、函数-调用机制 3、函数-递归调用...

Bertha 。/ 2024年04月17日 05:35/ 0 赞/ 31 阅读

相关前端基础：函数与函数式编程浅谈

![9ce54c26d4214cbbaea66ed637642b7d.png][] 纵观JavaScript中所有必须需要掌握的重点知识中，函数是我们在初学时最容易忽视的知识

红太狼/ 2024年03月26日 23:05/ 0 赞/ 30 阅读

相关 javascript函数式编程基础

一、引言函数式编程的历史已经很悠久了，但是最近几年却频繁的出现在大众的视野，很多不支持函数式编程的语言也在积极加入闭包，匿名函数等非常典型的函数式编程特性。大量的前端框

怼烎@/ 2022年09月13日 05:20/ 0 赞/ 149 阅读

相关 <Haskell函数式编程入门>-第12章代码走读

247页代码 247页 x<- left' i ==x<- writer(4-1,"move left\n1") y <- lef

秒速五厘米/ 2022年08月11日 00:55/ 0 赞/ 114 阅读

相关 Haskell函数式编程基础习题(5)

--Exercise 6.47 makeBill :: TillType -> BillType makeBill [t] = [(myLookup t

一时失言乱红尘/ 2022年08月06日 06:27/ 0 赞/ 94 阅读

相关 Haskell函数式编程基础习题(4)

--Exercise 6.35 --Exercise 6.34 --Exercise 6.33 --Exercis

缺乏、安全感/ 2022年08月06日 06:27/ 0 赞/ 128 阅读

相关 Haskell函数式编程基础习题(3)

import Data.Char --------------------------- --Exercise 5.26 --Exerci

墨蓝/ 2022年08月06日 06:04/ 0 赞/ 120 阅读

相关 Haskell函数式编程基础习题(2)

--Exercise 4.17 rangeProduct:: Int->Int -> Int rangeProduct a b | a

一时失言乱红尘/ 2022年08月06日 05:23/ 0 赞/ 106 阅读

相关 Haskell函数式编程基础习题

-- Exercise 3.14 myMin :: Int -> Int -> Int myMin x y | x < y = x

迈不过友情╰/ 2022年08月06日 02:26/ 0 赞/ 129 阅读

相关函数式编程（基础部分）

函数式编程是Java1.8新增内容： 1.FunctionalInterface注释 Java8提出了函数式接口的概念。简单来说就是只定义了单一抽象方法的接口。比如下面

青旅半醒/ 2022年05月15日 08:42/ 0 赞/ 151 阅读