- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
关闭。这个问题是opinion-based .它目前不接受答案。
想改进这个问题?更新问题,以便 editing this post 可以用事实和引用来回答它.
上个月关门。
Improve this question
我正在处理 Real World Haskell ,目前正在做第 3 章末尾的练习。
我采取了一种不同寻常的方法:尽管我知道他们还没有涵盖一些对我有帮助的语言功能,但我仍在尝试仅使用他们明确涵盖的内容来进行这些练习。 为什么?真的只是为了好玩。感觉就像它迫使我给我的大脑一些额外的递归练习。
所以我刚刚完成了如下的练习: “创建一个函数,根据每个子列表的长度对列表列表进行排序。(您可能需要查看 Data.List 模块中的 sortBy 函数。)”
现在,他们提出了有关 Data.List 模块的提示。但是他们没有说在哪里可以找到引用文档,关于如何导入东西等等。所以我决定推出自己的排序,看看我是否能做到。我使用了冒泡排序,因为它是最简单的算法。
结果如下。我想让你 haskell 大师批评它...但是谨记以下注意事项:如果您提出改进建议,请以 Real World Haskell 第 3 章中涵盖的语言特性为基础(或者您猜测这些特性可能是什么,而无需费力查找)。我 了解有很多很棒的语言特性等着我,它们可以让我把这段代码做得更好,但现在的具体挑战是用迄今为止所涵盖的“原始”特性来做到这一点。
我确信在某些情况下我会伸手去抓我的肘部,在递归和模式匹配可以为我做更多事情时使用显式控制流的情况等等。我相信代码可能是也变得更短且更具可读性。我敢打赌,有一些我不知道的好习惯可以与我限制自己使用的原始语言功能一起使用。这些是我希望收到的提示。
这可能是任何语言中我引以为豪的最丑陋的代码(至少,我记得)。我的第一次尝试是用一种函数式语言,而不是“Hello, world”类型的东西。现在你要打败它了:)。请温柔一点,但我期待着一些深刻的见解。谢谢。
areListsEqual :: (Eq a) => [a] -> [a] -> Bool
areListsEqual [] [] = True
areListsEqual [] _ = False
areListsEqual _ [] = False
areListsEqual xs ys = (head xs == head ys) && (areListsEqual (tail xs) (tail ys))
charlieSort :: (Eq a) => [[a]] -> [[a]]
charlieSort [] = []
charlieSort (x:xs) | null xs = [x]
charlieSort xs | (length xs) >= 2 = if(not (areListsEqual xs wip))
then charlieSort wip
else wip
where
first = head xs
second = head (tail xs)
theRest = drop 2 xs
swapPairIfNeeded a b = if(length a >= length b)
then [second, first]
else [first, second]
modifiedPair = swapPairIfNeeded first second
wip = (take 1 modifiedPair) ++ charlieSort ( (drop 1 modifiedPair) ++ theRest)
最佳答案
我首先会开始使用模式匹配。
areListsEqual :: Eq a => [a] -> [a] -> Bool
areListsEqual [ ] [ ] = True
areListsEqual [ ] _ = False
areListsEqual _ [ ] = False
areListsEqual (x:xs) (y:ys) = x == y && areListsEqual xs ys
head
时,它的可读性更高。和
tail
被避免。
charlieSort :: Eq a => [[a]] -> [[a]]
charlieSort [ ] = []
charlieSort [x ] = [x]
charlieSort xs@(first:second:theRest)
| areListsEqual xs wip = wip
| otherwise = charlieSort wip
where
swapPairIfNeeded a b
| length a >= length b = [second,first]
| otherwise = [first,second]
modifiedPair = swapPairIfNeeded first second
wip = take 1 modifiedPair ++ charlieSort (drop 1 modifiedPair ++ theRest)
if
-
then
-
else
给守卫稍微提高可读性
length
我们使用模式匹配,这也允许我们命名
first
,
second
,
theRest
直接地。
name @ pattern
图案两者
pattern
匹配并将整个输入命名为
name
.
take
和
drop
用于提取两个元素
modifiedPair
, 所以最后两行变成
[shorter,longer] = swapPairIfNeeded first second
wip = [shorter] ++ charlieSort ([longer] ++ theRest)
wip = shorter : charlieSort (longer : theRest)
swapPairIfNeeded
返回
shorter
和
longer
的
first
和
second
列表中的列表?为什么不使用
swapPairIfNeeded a b
| length a >= length b = (second,first)
| otherwise = (first,second)
(shorter,longer) = swapPairIfNeeded first second
swapPairIfNeeded
比较它的参数
a
和
b
, 但随后返回
first
和
second
反正。在这种情况下,不要让它返回
a
和
b
在一对中,我将删除
swapPairIfNeeded
完全相反:
(shorter,longer)
| length first >= length second = (second,first)
| otherwise = (first,second)
swapPairIfNeeded
的主体进入定义
(shorter,longer)
.
charlieSort
的代码好像
charlieSort :: Eq a => [[a]] -> [[a]]
charlieSort [ ] = []
charlieSort [x ] = [x]
charlieSort xs@(first:second:theRest)
| areListsEqual xs wip = wip
| otherwise = charlieSort wip
where
(shorter,longer)
| length first >= length second = (second,first)
| otherwise = (first,second)
wip = shorter : charlieSort (longer : theRest)
charlieSort
并没有真正实现
charlieSort
不仅会
longer : theRest
,以便在此递归调用之后必须完成的所有操作
shorter
对其
关于sorting - 代码形式的批判 Real World Haskell,第 3 章练习,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/788361/
Closed. This question needs details or clarity。它当前不接受答案。 想改善这个问题吗?添加详细信息,并通过editing this post阐明问题。 去
I am learning boost-python from the Tutorial, 但是报错了,你能给我一些提示吗,谢谢! #include using namespace boost::p
这个问题已经有答案了: 已关闭11 年前。 Possible Duplicate: Capitalize First Char of Each Word in a String Java 编写进行以下
很抱歉这个问题的措辞有点疯狂,但我对面向代理的思维非常陌生(这些是“模式”吗?),并且对 java 来说只是稍微不那么新鲜,而且我正在努力解决感觉像非常基本的问题。 我“凭直觉”(即盲目地)做了很多这
是的,所以我正在制作一个沼泽标准 Hello world 以确保 android 正常工作。这是我第一次使用 android,所以我正在设置环境。我按照以下程序制作了程序:http://develop
我正在尝试将“Hello World”变为“World Hello”。但是代码没有按照我希望的方式正常工作。请看下面的代码: #include #include #include struct lln
例如,virt-what显示您是否在硬件虚拟化“沙箱”中运行。 如何检测您是否在 ARM "TrustZone"沙箱中运行? 最佳答案 信任专区 可能和你想的不一样。有一个连续的模式。从“受信任功能的
关闭。这个问题需要多问focused 。目前不接受答案。 想要改进此问题吗?更新问题,使其仅关注一个问题 editing this post . 已关闭 6 年前。 Improve this ques
如何使用 CSS 将字符串“Hello world I am Jack”反转为“Jack am I world Hello”? 例如: Hello World ,我是 jack 我想知道如何使用 CS
为什么这段代码抛出 InputMismatchException ? Scanner scanner = new Scanner("hello world"); System.out.println(
require 'csv' s = "\"Hello World\"" CSV.open('output.txt', 'w') do |csv| csv << [s] end 在我的文件中,我
当我尝试这段代码时 char *a[] = {"hello", "world" }; char **p = a; char a[][10]={"hello", "world"}; 我的编译失败了,我被
为什么“第二次世界大战”没有取代“第二次世界大战”? var wha = prompt("What is?"); for (var i = 1; i < wha.length; i++) { if
我刚刚在 Windows XP 上安装了 Python 2.7.2,想学习如何编程。我使用的一些教程书籍提供了打印命令的示例,当我尝试这些命令时,我会得到不同的答案。 我希望这两个返回相同的东西 -
我卸载了android ask并重新安装到没有空格的c:\androidSdktools。所以现在模拟器可以工作了,我可以看到模拟器了。 但尝试了一些“hello world”文本的代码,当我运行应用
在Swift中,下面是什么语法? let (hello, world):(String,String) = ("hello","world") print(hello) //prints "hello
在我的 url 中,我有“?msg=hello+world”,在我的操作中,它将值转换为“hello world” public ActionResult test(string msg) {
正如标题所说,我需要格式化一串文本,格式如下:“HELLO, WORLD. HOW ARE YOU?”进入“你好,世界。你好吗?”,在 iOS 中是否有任何标准方法可以做到这一点?或者有没有示例代码?
我已经开始学习 C++ 并编写了一个“Hello World”程序。当我尝试在命令提示符下运行它时,它崩溃并向我显示一条 Windows 消息“Hello World.exe 已停止工作。”。 代码:
这个问题已经有答案了: member variable string gets treated as Tuple in Python (3 个回答) 已关闭 4 年前。 我是 python 新手,正在
我是一名优秀的程序员,十分优秀!