Haskell语言实现求解一个整数所有因子的代码及运行结果

最新推荐文章于 2019-07-31 14:52:23 发布
最新推荐文章于 2019-07-31 14:52:23 发布
阅读量472 收藏
点赞数
分类专栏： Haskell 文章标签： Haskell 整数的所有因子
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_40159978/article/details/81017527
版权

问题：

求解一个整数的所有因子并输出

代码：

factors::Int->[Int]

factors n=[x|x<-[1..n],n`mod`x==0]

运行结果：

AHU_YZQ
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
haskell：Haskell编程语言中所有▲算法的实现
02-04
haskell：Haskell编程语言中所有▲算法的实现
常用语言运行时间计算函数
lanshi00的博客
02-28 1354
python time.clock() 程序运行CPU的时间，返回值是浮点数 （单位 秒） 推荐使用 （比毫秒表示更为精确） importtime start= time.clock() # do things end=time.clock() print('Runningtime:%sSeconds'%(end-start)) CPU time：是当CPU完全被某个进...
haskell 基础题解（05）
可雷曼土的日志
07-31 209
分解质因数 【题目】给一个数，求它的质因数分解形式 例如：10 = 2 * 2 * 5 看起来需要一个所有质数的表，从小到大，每一个不断去试除那个给定的数，除开了，它就是一个合格的质因数。。。。。 实际上也可以递归地思考，依次从 2,3,4… 中找一个数x去试除N，如果能除开，x收入囊中，然后接着求N/x 的所有质因数就可以了。 之所以不用质数列试除也可以，是因为：假如某个合数可除尽，那么它的质数...
Haskell分解质因数
weixin_33895475的博客
08-12 229
为什么80%的码农都做不了架构师？>>> ...
程序计时的小技巧：clock()和wtime()
I AM BACK
05-06 2567
clock()clock()是在time.h里面的程序，通过前后两次相减得到ticktok的次数，除以CLOCKS_PER_SEC，就得到了秒数。在计算一个程序的运行时间的时候，如果只是简单的线性执行的程序，那么使用clock() 就可以计算出程序的执行时间，但是其实这个时间是CPU的时间。如果你用clock()计算并行程序执行时间，发现它会把所有CPU的执行都叠加起来【1】。 clo
十分钟学会 Haskell
热门推荐
fei的专栏
05-21 3万+
1 概要Haskell 是函数式（一切通过函数调用来完成）、静态、隐式类型（类型由编译器检测，类型声明不是必需的）、惰性（除非必要，否则什么也不做）的语言。其最大众化的近亲大概是 ML 族语言（不过不是惰性的）。最流行(common)的 Haskell 编译器是 GHC，下载地址。GHC 在 GNU/Linux, FreeBSD, MacOS, Windows 以及 Solaris 平台上都有可供...
has-go:一个简单的扩展以在VSCode中运行Haskell
05-01
哈斯克尔·亚军 运行Haskell的简单扩展。要求您需要（至少）安装ghc 。 为了使扩展功能完全正常运行，您需要安装cabal和stack 。特征按command + shift + P可以： 使用当前文件加载GHCi （或Stack / Cabal repl ）：...
CSP:Haskell中的一个简单CSP求解器，带有示例问题
05-17
CSP Haskell中用于静态和动态CSP的CSP解算器。 处理任意二进制约束并执行前向检查（通过弧一致性）和... 约束从变量v1到另一个变量v2并包含一个函数d -> [d] ，在给v1假设分配d ，该函数返回v2剩余可能值的列表[d] 。
haskell-docker:运行Haskell代码的便捷环境
04-14
该docker映像部署了Haskell的堆栈，并为尝试Haskell代码提供了便利的环境。 我制作这张图片是为了学习Haskell。用法建立影像运行构建脚本： $ <repo>/build运行容器在容器内运行shell： $ <repo>/run该脚本将主机的...
tiger-haskell:Haskell 中的现代编译器实现（Tiger 编程语言）
06-11
这是一个尝试创建一个tiger编程语言编译器，因为我想在做一些有趣的事情的同时学习Haskell。 一年前，我参加了耶鲁 CPSC 421 课程，我们用 SML 为同一种语言实现了一个编译器。 那时我们有很多样板代码，但这次我会...
[Haskell] 一些简单题
とある黄鱼のOIブログ
10-03 1021
二分查找，找出列表里是否存在给定的x 显然，列表必须是有序的（这就包括了元素是可比较的，也就是都属于Ord类型类）。 binarySearch :: (Ord a) => a -> [a] -> Bool binarySearch x list | x < mid = binarySearch x front | x > mid = binaryS
Haskell读入一个字符串，把它转换成数字
yc5-yc的博客
12-01 3410
toint :: String->Int toint' :: Char->Int toint' s |s=='1' =1 |s=='2' =2 |s=='3' =3 |s=='4' =4 |s=='5' =5 |s=='6' =6 |s=='7' =7 |s=='8' =8 |s=='9' =9 |s=='0' =0 |otherwise = 0
Haskell 学习笔记-01：Hello, World！
程序猿视角
06-08 2013
闲扯函数式编程 函数式编程语言一直是叫好不叫座，用函数式编程语言开发的应用项目并不多。我分析其原因，感觉根本原因在于当今 CPU 的指令体系是面向过程的，换句话讲， C 语言这个家族的编程语言，C++、Java、C#、Delphi 等，是与 CPU 指令体系同构的，因此，用他们写程序，自然很顺手，而且目标代码执行起来效率很高。 说起当今的 CPU 的指令体系，可追溯到图灵机概念的产生。图灵机把...
HASKELL起步入门教程
丿灬安之若死
02-09 4831
函数式编程HASKELL起步入门教程　　Haskell作为一门纯函数语言，它有以下特点：Haskell强表达能力可以提高软件的生产力小语言核心提供了很大的灵活性代码可以很简洁,提高开发速度从编译和解释两种语言中都能得到两全其美的好处Haskell使代码更容易理解和维护可以深入复杂的库和理解代码是做 什么Haskell可以提高系统的鲁棒性强类型捕获在编译时许多的错误函数代码允许更好的测试方法没有变化...
用 Haskell 求解 ACM 竞赛题（2）：变量及其输入
程序猿视角
11-09 608
上一节的程序虽好， 但有一个遗憾： 计算的数据是事先确定的。 为了计算 1 + 2 和 2 + 3， 下面不得不编写两个程序。 可不可以让程序读取键盘输入，并根据输入内容计算结果呢？ 答案是肯定的。 程序如下： 程序 1- 4 　 a+ b 问题 #include&amp;amp;lt;stdio.h&amp;amp;gt; int main() { int a, b; scanf(&amp;quot;% d% d&amp;quot;, &
Haskell 学习笔记-20：除法（ Division, UVa 725）
程序猿视角
10-31 1822
看了几本 Haskell 教程，我觉得这些书都没有站在程序员的角度安排内容顺序。其实对于大部分程序员来讲，脑子里就是 C 语言的基本套路。因此， Haskell 的教程应该从 C 语言相近的方式开始课程。等我用 Haskell 开发一个应用系统后，考虑编写一本真正的入门教程。今天发一段 ACM 竞赛题的 Haskell 程序。 除法（ Division, UVa 725） 输入正整数 n， 按从小...
Haskell 几乎无痛苦上手指
mjk的专栏
09-16 2517
<br />http://blog.csdn.net/albert_lee/archive/2010/04/10/5469933.aspx<br /> <br />from albert_lee<br /> <br />    Haskell 几乎无痛苦上手指 收藏<br /> <br />趁着自己重装Linux 虚拟机的机会，把安装 haskell 的过程记录一下，顺便帮那些还犹豫徘徊在haskell门外的读者入门。基本概念：Haskell ： <br />是一门通用函数式语言，几
写一个haskell语言的二叉树
最新发布
09-14
### 回答1： 我不是很擅长写Haskell语言的二叉树，但是我可以给你一个示例：data Tree = Leaf Int | Node Tree Treetree = Node (Leaf 1) (Node (Leaf 2) (Leaf 3)) ### 回答2： 下面是一个用Haskell语言实现的二叉树的示例： ```haskell -- 定义二叉树的数据类型 data BinaryTree a = EmptyTree | Node a (BinaryTree a) (BinaryTree a) deriving (Show) -- 插入元素到二叉树中 insert :: (Ord a) => a -> BinaryTree a -> BinaryTree a insert x EmptyTree = Node x EmptyTree EmptyTree insert x (Node a left right) | x == a = Node a left right | x < a = Node a (insert x left) right | x > a = Node a left (insert x right) -- 判断元素是否存在于二叉树中 contains :: (Ord a) => a -> BinaryTree a -> Bool contains x EmptyTree = False contains x (Node a left right) | x == a = True | x < a = contains x left | x > a = contains x right -- 从二叉树中删除元素 delete :: (Ord a) => a -> BinaryTree a -> BinaryTree a delete _ EmptyTree = EmptyTree delete x (Node a left right) | x == a = deleteNode (Node a left right) | x < a = Node a (delete x left) right | x > a = Node a left (delete x right) where deleteNode (Node a EmptyTree right) = right deleteNode (Node a left EmptyTree) = left deleteNode (Node a left right) = let minVal = findMin right in Node minVal left (delete minVal right) findMin (Node a EmptyTree _) = a findMin (Node _ left _) = findMin left ``` 以上代码定义了一个二叉树的数据类型 `BinaryTree` ，其中 `EmptyTree` 表示空树，`Node a left right` 表示有一个值为 `a` 的节点，和左右子树 `left` 和 `right`。 在这个示例中，我们还定义了三个常用的操作函数： - `insert`：用于将元素插入二叉树中。 - `contains`：用于判断元素是否存在于二叉树中。 - `delete`：用于从二叉树中删除指定元素。 以上就是一个用Haskell语言实现的二叉树示例。这个示例只是简单地展示了如何定义和操作一个基本的二叉树，实际应用中可能还需要添加其他操作和功能。 ### 回答3： Haskell语言中，可以使用递归数据类型定义一个二叉树。以下是一个简单的二叉树示例： ```haskell data BinaryTree a = EmptyTree | Node a (BinaryTree a) (BinaryTree a) ``` 这个定义中，`BinaryTree`是一个类型构造器，参数化了类型`a`。它有两个可能的值：`EmptyTree`代表一个空树，`Node`代表一个节点，它包含一个值和两个子树。 节点的值的类型由`a`所代表，子树的类型仍然是`BinaryTree`。 接下来，我们可以定义一些对二叉树进行操作的函数。以下是一些示例： ```haskell -- 判断二叉树是否为空 isEmpty :: BinaryTree a -> Bool isEmpty EmptyTree = True isEmpty _ = False -- 插入一个值到二叉树中 insert :: (Ord a) => a -> BinaryTree a -> BinaryTree a insert val EmptyTree = Node val EmptyTree EmptyTree insert val (Node root left right) | val < root = Node root (insert val left) right | val > root = Node root left (insert val right) | otherwise = Node val left right -- 在二叉树中查找一个值 search :: (Ord a) => a -> BinaryTree a -> Bool search _ EmptyTree = False search val (Node root left right) | val < root = search val left | val > root = search val right | otherwise = True -- 先序遍历二叉树 preorder :: BinaryTree a -> [a] preorder EmptyTree = [] preorder (Node root left right) = root : (preorder left ++ preorder right) ``` 通过以上定义，我们可以构建和操作二叉树。例如： ```haskell -- 创建一个二叉树，并向其中插入一些值 tree = foldr insert EmptyTree [5, 3, 8, 1, 4, 7, 9] -- 判断二叉树是否为空 isEmpty tree -- False -- 在二叉树中查找一个值 search 7 tree -- True -- 先序遍历二叉树 preorder tree -- [5, 3, 1, 4, 8, 7, 9] ``` 以上是一个简单的二叉树的定义和一些基本操作的示例。在实际使用中，还可以扩展这个定义，增加更多的操作和功能。

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

AHU_YZQ

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值