---
title: 函数程序设计实验七：石头、剪刀和布
categories: 函数程序设计实验
abbrlink: 51186
date: 2018-11-14 11:00:00
---
```haskell
{-
设计一个交互程序，实现计算机（我）和用户（您）玩猜拳“石头、剪刀和布”。
例如，运行程序实现下来交互游戏：
*Main> play
请您出手 (R)石头, (S)剪刀, (P)布:p, 您出了布, 我出了石头
您赢了这手
我的得分: 0
您的得分: 1
请您出手 (R)石头, (S)剪刀, (P)布:s, 您出了剪刀, 我出了布
您赢了这手
我的得分: 0
您的得分: 2
请您出手 (R)石头, (S)剪刀, (P)布:r, 您出了石头, 我出了剪刀
您赢了这手
我的得分: 0
您的得分: 3
算您赢了这轮。
*Main> play
请您出手 (R)石头, (S)剪刀, (P)布:s, 您出了剪刀, 我出了布
您赢了这手
我的得分: 0
您的得分: 1
请您出手 (R)石头, (S)剪刀, (P)布:r, 您出了石头, 我出了石头
这一手平手
我的得分: 0
您的得分: 1
请您出手 (R)石头, (S)剪刀, (P)布:p, 您出了布, 我出了剪刀
我的得分: 1
您的得分: 1
请您出手 (R)石头, (S)剪刀, (P)布:p, 您出了布, 我出了剪刀
我的得分: 2
您的得分: 1
请您出手 (R)石头, (S)剪刀, (P)布:r, 您出了石头, 我出了剪刀
您赢了这手
我的得分: 2
