用haskell生成一个随机数的列表

最新推荐文章于 2021-06-26 21:54:09 发布
最新推荐文章于 2021-06-26 21:54:09 发布
阅读量2.9k 收藏 1
点赞数
分类专栏： haskell 文章标签： haskell random list rest import io
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/mjk/article/details/4033876
版权

import Random

 

drawInt :: Int -> Int -> IO Int
drawInt x y = getStdRandom (randomR (x,y))

random_list :: Int -> IO [Int]
random_list 0 = return []
random_list n = do
    a <- drawInt 1 20
    rest <- (random_list(n-1))
    return (a : rest)

mjk
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Haskell 笔记（二）List和元组
笑笑的程序人生
07-12 8993
最简单的函数 函数式编程，首先要有函数吧，来看一个最简单的函数，第一个是函数名，后面是输入变量，表达式是输出 doubleMe x=x+x Haskell的函数没有return语句，最后一句话是自然的返回值,函数都要保存为文件，文件以.hs结尾。 读取编写好的文件(以.hs结尾) :l 文件名 List 数据结构 LIST基本操作
通用随机数：通用随机生成器
02-04
在压缩包文件名称列表中，“generic-random-master”可能是一个GitHub项目的主分支，这个项目专注于开发一个泛型随机数生成库。这个库可能包含了一系列的实例，覆盖了Haskell标准库中的基本类型，以及用户自定义的...
(译) Haskell 中随机数的使用
weixin_34268753的博客
02-06 603
随机数（我指的是伪随机数）是通过显式或隐式的状态来生成的。这意味着在 Haskell 中，随机数的使用（通过 System.Random 库）是伴随着状态的传递的。 大部分需要获得帮助的人都有命令式编程的背景，因此，我会先用命令式的方式，然后再用函数式的方式来教大家在 Haskell 中使用随机数。 任务 我会生成满足以下条件的随机列表...
实现求n个随机数和为sum的haskell程序
申龙斌的程序人生
11-04 164
近日看到这篇博客http://www.cnblogs.com/songsz1/archive/2012/10/31/2748098.html，写一个程序：生成26个非负随机数，要求其和是301。最近对Haskell很感兴趣，就试着写了一下，不动手则已，真写起来还是遇到点问题。在函数式编程里每个确定的输入一定会有确定的输出，而随机数就意味着相同的程序每次运行就输出不同的结果。 一开始完成的代码如下...
[Haskell] 随机数的使用与Enum类型的随机生成
Mrfive555的博客
11-14 1684
随机数生成程序 haskell里提供了多种随机数相关的随机数生成程序，可以根据使用情景的不同选择不同的随机数生成程序。可以通过导入import System.Random来调用这些内部的随机数产生库 自定随机种子 全局随机种子 生成一个 random randomIO 在范围内生成 randomR randomRIO 生成随机列表 randoms 范围内随机列表 r...
用Haskell写出高效的List
u013571243的专栏
03-19 829
再次阅读haskell体会 from http://learnyouahaskell.com/for-a-few-monads-more newtype DiffList a = DiffList{ getDiffList :: [a] -> [a] } toDiffList :: [a] -> DiffList a toDiffList xs = DiffList (
Haskell语言学习笔记（7）IO 与随机数
zwvista的专栏
02-03 2298
IO 随机数
应用逻辑：haskell生成有理数集合
qq_36730954的博客
05-12 923
最近在上应用逻辑的课程，老师布置了一道题： 生成全部的有理数集合的无限序列，也就是所有的有理数都要包含在这个集合中，并且还要求没有重复的未化简的形式 看了两天haskell，另外借鉴了师兄去年的java代码，然后自己用haskell实现了一下，后面再附带上：代码解释+数学证明 haskell代码 mappend f []=[] //构建工具，将指定函数f应用在指定list上 mappe...
skip-list：Haskell中的纯跳过列表
02-05
Haskell中的实现可能会提供`empty`函数来创建一个空的跳过列表，以及`fromList`函数将给定的有序列表转换为跳过列表。 2. **查找**：`lookup`函数用于在跳过列表中查找指定元素。由于Haskell的纯函数特性，查找过程...
haskell代码：Haskell代码试用
02-21
首先，提到的"random-tuts.hs"文件名暗示了一个关于随机数生成的教程，这是Haskell中的一个常见话题。在Haskell中，随机数生成通常涉及到`System.Random`模块，该模块提供了一组接口用于生成随机整数、浮点数等。...
模拟退火的Haskell实现_Haskell_代码_下载
06-21
- 随机性：Haskell有Random类提供随机数生成，但必须在IO上下文中使用，因为随机性涉及副作用。 4. 文件结构与代码解读： "sa-master"可能包含以下部分： - `Main.hs`：主程序入口，定义模拟退火算法的运行逻辑...
朱利奥：Julia嵌入Haskell
02-02
标题 "朱利奥：Julia嵌入Haskell" 指涉的是一个项目或技术，它允许在Haskell编程语言中使用和嵌入Julia语言的功能。这种集成为开发者提供了结合两种语言优势的能力，比如利用Haskell的强类型、静态编译和函数式编程...
Haskell 入门（一）：定义一个函数
voyager3的博客
02-22 4786
【本文建议有 C/C++ 系语言基础的同学阅读】 首先呢，Haskell 和我们平时经常看见的 C++/Java 和 C 等面向对象和面向过程的语言不同，Haskell 是一门函数式语言. 这意味着很多在面向对象/过程语言上常用的语法在 Haskell 将完全不一样. 例如：Haskell 没有 for 循环. 那有人会问了，在 Haskell 里面连 for 循环都没有，难道要做循环必须使用递
Haskell 学习笔记-16：一个简单的应用程序
程序猿视角
06-29 1759
如果不考虑运行速度，感觉函数式编程还是很方便的。发现可以用 read 函数实现字符串专为数字，当然也可以转成其他类型。 -- 选择菜单。（带副作用的IO编程，和传统编程语言类似。） select_action = do putStrLn &amp;quot;&amp;quot; putStrLn &amp;quot;&amp;quot; putStrLn &amp;quot;班级成绩管理系统 主菜单&amp;quot;
Haskell编程：基于ghci安装QuickCheck、Random等库
qq_45435075的博客
06-26 1044
Haskell编程：基于ghci安装QuickCheck、Random等库前言下载Cabal库添加环境变量powershell下安装验证环节 前言 笔者这个学期正在学习Haskell编程，需要用到QuickCheck和Random这样的库。搜了很多资料也没有发现到底该怎么安装，于是便有了此文。 其实安装过程并不难，只是对于刚接触Haskell语言的朋友来说显得陌生罢了。 下载Cabal库 下载链接: Cabal官网下载. 选择下载Cabal library并解压缩，得到如下文件 添加环境变量 环境变量的
Haskell 学习笔记-06：矩阵问题——函数式编程真不容易
程序猿视角
06-15 2060
函数式编程语言没有循环命令，因此，需要用循环解决的问题一般都用递归代替。但是，很多问题的确不适合递归，比如矩阵的相关操作。这里我写了一组和矩阵有关的练习，探讨一下如何处理这类问题。 练习1 在 N 阶方阵中填写自然数序列，例如： $$ $$...
随机生成自定义位数随机数
weixin_30432179的博客
05-02 187
import java.util.*;public class Test { public static void main(String[] args) { int max =9999; int min = 1000; Random random= new Random(); // String a = (random.nextInt(max)%(max-min...
Haskell:String和ByteString互相转换代码
mjk的专栏
10-19 7022
<br /><br />toBS :: String -> BS.ByteString<br />toBS = BS.pack . map (fromIntegral . fromEnum)<br /> <br />fromBS :: BS.ByteString -> String<br />fromBS = map (toEnum . fromIntegral) . BS.unpack
用haskell写一个21点游戏。
最新发布
08-03
### 回答1： 这是一个Haskell实现的21点游戏代码示例： ``` import System.Random import Control.Monad data Suit = Clubs | Diamonds | Hearts | Spades deriving (Eq, Show, Enum) data Rank = Two | Three | Four | Five | Six | Seven | Eight | Nine | Ten | Jack | Queen | King | Ace deriving (Eq, Show, Enum, Ord) data Card = Card Rank Suit deriving (Eq, Show) type Deck = [Card] deck :: Deck deck = [Card rank suit | suit <- [Clubs .. Spades], rank <- [Two .. Ace]] drawCard :: Deck -> IO (Card, Deck) drawCard deck = do index <- randomRIO (0, length deck - 1) let card = deck !! index newDeck = take index deck ++ drop (index + 1) deck return (card, newDeck) rankValue :: Rank -> Int rankValue rank = case rank of Jack -> 10 Queen -> 10 King -> 10 Ace -> 11 _ -> fromEnum rank + 2 totalValue :: [Card] -> Int totalValue = sum . map (rankValue . rank) where rank (Card r _) = r playGame :: Deck -> Int -> IO () playGame deck playerTotal = do putStrLn $ "Current Total: " ++ show playerTotal if playerTotal > 21 then putStrLn "Bust! You lose." else do putStrLn "Draw another card? (y/n)" response <- getLine if response == "n" then do putStrLn $ "Your final total is " ++ show playerTotal ++ "." if playerTotal == 21 then putStrLn "You win!" else putStrLn "You lose." else do (card, newDeck) <- drawCard deck let newTotal = playerTotal + rankValue (rank card) putStrLn $ "Drew the " ++ show card ++ "." playGame newDeck newTotal main :: IO () main = do putStrLn "Welcome to 21!" (card1, newDeck1) <- drawCard deck putStrLn $ "Drew the " ++ show card1 ++ "." (card2, newDeck2) <- drawCard newDeck1 putStrLn $ "Drew the " ++ show card2 ++ "." let playerTotal = rankValue (rank card1) + rankValue (rank card2) playGame newDeck2 playerTotal ``` 这个代码实现了21点游戏的基本逻辑，您可以进行一些修改以满足您的需求。 ### 回答2： Haskell 是一种函数式编程语言，非常适合用来编写游戏。下面是一个用 Haskell 编写的 21 点游戏的实现示例。 首先，我们需要定义一些类型来表示牌和玩家的手牌： ```haskell data Suit = Spades | Hearts | Diamonds | Clubs data Rank = Ace | Two | Three | Four | Five | Six | Seven | Eight | Nine | Ten | Jack | Queen | King type Card = (Rank, Suit) type Hand = [Card] ``` 然后，我们可以编写一些辅助函数来处理牌和手牌： ```haskell -- 得到一副新的、洗过的纸牌扑克牌 deck :: [Card] deck = [(r, s) | r <- [Ace, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten, Jack, Queen, King] , s <- [Spades, Hearts, Diamonds, Clubs]] -- 根据牌面点数计算牌的点数（A 计 11 点，J、Q、K 计 10 点，其他按牌面点数计算） value :: Card -> Int value (r, _) = case r of Ace -> 11 King -> 10 Queen -> 10 Jack -> 10 _ -> fromEnum r + 1 -- 计算手牌的点数（包括 A 还可以计为 1 点的情况） handValue :: Hand -> Int handValue hand = if sum (map value hand) > 21 && Ace `elem` (map fst hand) then sum (map (\(r, _) -> if r == Ace then 1 else value (r, undefined)) hand) else sum (map value hand) -- 判断手牌是否爆牌 isBusted :: Hand -> Bool isBusted hand = handValue hand > 21 ``` 接下来，我们可以编写主要的游戏逻辑函数： ```haskell -- 发牌（从牌堆中取出一张牌并加入到手牌中） deal :: Hand -> [Card] -> (Hand, [Card]) deal hand [] = error "No more cards!" deal hand (c:cs) = (c:hand, cs) -- 判断是否达到最佳点数（即 21 点） bestHand :: Hand -> Bool bestHand hand = handValue hand == 21 -- 游戏轮流进行，玩家决定是否继续要牌，直到停止或爆牌 playGame :: Hand -> [Card] -> IO () playGame hand cards = do let currentValue = handValue hand putStrLn ("当前点数: " ++ show currentValue) if isBusted hand then putStrLn "爆牌，游戏结束！" else if bestHand hand then putStrLn "达到最佳点数，游戏结束！" else do putStr "是否要牌？(y/n): " choice <- getLine if choice == "y" then do let (newHand, newCards) = deal hand cards putStrLn ("发牌: " ++ show (head newCards)) playGame newHand newCards else putStrLn "停止要牌，游戏结束！" ``` 最后，我们可以编写一个启动函数，让玩家可以开始游戏： ```haskell startGame :: IO () startGame = do let (hand, remainingCards) = deal [] deck putStrLn ("发牌: " ++ show (head remainingCards)) playGame hand remainingCards main :: IO () main = startGame ``` 这样，你就可以运行该 Haskell 程序，并通过键盘输入来玩 21 点游戏了。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值