Haskell
huanghongxun
这个作者很懒,什么都没留下…
展开
-
[Haskell] 一些简单题
二分查找,找出列表里是否存在给定的x 显然,列表必须是有序的(这就包括了元素是可比较的,也就是都属于Ord类型类)。 binarySearch :: (Ord a) => a -> [a] -> Bool binarySearch x list | x < mid = binarySearch x front | x > mid = binaryS原创 2017-10-03 00:01:21 · 1054 阅读 · 0 评论 -
[Haskell] CodeWars|Bouncing Balls
https://www.codewars.com/kata/5544c7a5cb454edb3c000047/haskell题目一个小孩在一个超高建筑的n楼打球,高度为h(h>0)h(h>0),他把球丢出了建筑,垂直下落并弹起,每次弹起的高度是上一次的bounce(0<bounce<1)bounce(0<bounce<1)倍。他母亲从window(window<h)window(window<h)高原创 2017-10-04 19:12:34 · 597 阅读 · 0 评论 -
[Haskell] CodeWars|Sum of Digits
https://www.codewars.com/kata/541c8630095125aba6000c00/haskell题目本题你需要写一个Digital Root函数。 Digital root是一个数字所有位的递归和。给定n,算出n各位的和n′n',继续这个操作直到n(p)=n(p−1)n^{(p)}=n^{(p-1)}。以下是范例:digital_root(16) => 1 + 6 =>原创 2017-10-04 17:12:51 · 362 阅读 · 0 评论 -
[Haskell] CodeWars|Who likes it?
题目你可能知道Facebook的点赞系统(404网站)和其他页面。人们可以给一个博文、图片或其他内容点赞。我们希望构造一个文本并展示给用户谁给这篇博文点赞。实现函数likes :: [String] -> String,输入由人名构成的字符串数组。返回值例子如下:likes [] = "no one likes this" likes ["Peter"] = "Peter likes this" l原创 2017-10-04 16:44:00 · 301 阅读 · 0 评论 -
[Haskell] CodeWars|Build a pile of Cubes
题目你的任务是构建一个建筑物,这个建筑物由n个立方体构成,最底层的立方体体积为n3n^3,直到最高层的立方体体积为131^3。给定整个建筑物的总体积m,你知道这个建筑物有多少个立方体吗?如果没有n能对应m,输出-1。样例findNb 1071225 = 45 findNb 91716553919377 = -1题解因为 13+23+⋯+n3=(1+2+⋯+n)2=(n(n+1)2)21^3+2^3原创 2017-10-04 15:53:52 · 616 阅读 · 0 评论 -
[Haskell] CodeWars|Sum of odd numbers
https://www.codewars.com/kata/55fd2d567d94ac3bc9000064/haskell题目Given the triangle of consecutive odd numbers: 1 3 5 7 9 11 13 15 17 19 21 23 2原创 2017-10-04 14:57:03 · 381 阅读 · 0 评论 -
[Haskell] CodeWars|Your order, please
https://www.codewars.com/kata/55c45be3b2079eccff00010f/haskell题目翻译你的任务是排序给定的一个句子。句子里每个单词会包含一个一位的数字(1-9,1表示第一个单词),这个数字表示这个单词最后在句子里的位置。如果输入的句子空,那么返回一个空的字符串。样例输入”is2 Thi1s T4est 3a” 返回”Thi1s is2 3a T4est原创 2017-10-03 19:23:21 · 454 阅读 · 0 评论 -
[Haskell] CodeWars|Find the middle element
https://www.codewars.com/kata/545a4c5a61aa4c6916000755/train/haskell题目翻译本题中你需要写个函数,输入一个三元组,输出三个树中既不是最大的也不是最小的那个数字的下标。样例gimme (2, 3, 1) = 0 gimme (5, 10, 14) = 1题解只使用maximum和minimum的方法,这是我写的一个比较奇怪的方法。。g原创 2017-10-03 10:56:18 · 266 阅读 · 0 评论 -
[Haskell] CodeWars|Vowel Count
https://www.codewars.com/kata/54ff3102c1bad923760001f3/train/haskell题目翻译返回字符串中的元音字符(a、e、i、o、u)个数。题解getCount :: String -> Int getCount = length . filter (`elem` "aeiou")原创 2017-10-03 10:37:46 · 397 阅读 · 0 评论 -
[Haskell] CodeWars|Printer Errors
https://www.codewars.com/kata/56541980fa08ab47a0000040/train/haskell题目大意输入一个只由小写字母构成的字符串,输出一个分数表示字符串里出现n到z的频率。题目翻译工厂里有个打印机可以为纸箱打印标签。对于一种箱子,打印机必须使用一些颜料,为方便起见,这些颜料用字母a到m表示。打印机使用的这些颜料被记录在一个控制字符串里。比如一个好的控制原创 2017-10-03 10:27:09 · 545 阅读 · 0 评论 -
[Haskell] CodeWars|Growth of a Population
http://www.codewars.com/kata/growth-of-a-population/haskell问题描述某个小镇第一年的初始人口为p0 = 1000。人口规模总是每年增长2%,然后每年又还有50个外来人口迁入这个城镇。请问多少年这个小镇的人口会达到(即大于等于)p = 1200呢?第一年结束时这个小镇的人口将达到: 1000+1000×0.02+50=10701000 + 1原创 2017-10-03 10:00:09 · 338 阅读 · 0 评论 -
[Haskell] CodeWars|Integers: Recreation One
https://www.codewars.com/kata/55aa075506463dac6600010d/haskell题目42的因数有:1,2,3,6,7,14,21,42,平方后为1,4,9,36,49,196,441,1764,和为2500,是一个完全平方数(50×5050\times 50)。 给定两个整数m,n(1≤m≤n)m,n(1\leq m\leq n),找出[m,n][m,n原创 2017-10-04 20:30:21 · 606 阅读 · 0 评论