如何在多行中定义ghci中的函数?

时间:2010-05-17 00:16:15

标签: haskell ghci

我正在尝试定义任何跨越ghci中多行的简单函数,以下面的例子为例:

let abs n | n >= 0 = n
          | otherwise = -n

到目前为止,我已尝试在第一行后按Enter键:

Prelude> let abs n | n >= 0 = n
Prelude>           | otherwise = -n
<interactive>:1:0: parse error on input `|'

我还尝试使用:{:}命令,但我没有走得太远:

Prelude> :{
unknown command ':{'
use :? for help.

我在Linux上使用GHC Interactive版本6.6 for Haskell 98,我缺少什么?

7 个答案:

答案 0 :(得分:232)

GHCi现在具有多线输入模式,启用:set + m。例如,

Prelude> :set +m
Prelude> let fac 0 = 1
Prelude|     fac n = n * fac (n-1)
Prelude|
Prelude> fac 10
3628800

答案 1 :(得分:115)

对于警卫(就像你的例子),你可以将它们全部放在一条线上并且它可以工作(守卫不关心间距)

let abs n | n >= 0 = n | otherwise = -n

如果你想用你在参数上匹配模式的多个定义来编写你的函数,比如:

fact 0 = 1
fact n = n * fact (n-1)

然后你会使用分号分隔定义的大括号

let { fact 0 = 1 ; fact n = n * fact (n-1) }

答案 2 :(得分:52)

Dan是正确的,但:{:}必须各自出现在自己的行中:

> :{ 
> let foo a b = a +
>           b
> :}
> :t foo
foo :: (Num a) => a -> a -> a

这也与布局规则交互,因此在使用do-notation时,可能更容易明确地使用大括号和分号。例如,此定义失败:

> :{
| let prRev = do
|   inp <- getLine
|   putStrLn $ reverse inp
| :}
<interactive>:1:18:
    The last statement in a 'do' construct must be an expression

但是当添加括号和分号时它会起作用:

> :{
| let prRev = do {
|   inp <- getLine;
|   putStrLn $ reverse inp;
| }
| :}
> :t prRev
prRev :: IO ()

只有从文件中粘贴定义时,这才会真正重要,缩进可能会发生变化。

答案 3 :(得分:17)

看起来:{:}是一个非常新的功能。您可能需要升级GHC。

修改:已确认,请参阅http://www.haskell.org/ghc/docs/6.8.2/html/users_guide/release-6-8-2.html

答案 4 :(得分:7)

如果您不想仅针对:{:}升级GHC,则需要将其全部写在一行:

> let abs' n | n >= 0 = n | otherwise = -n

我不知道Haskell中的任何单一定义必须写在多行上。以上确实在GHCi中有效:

> :t abs'
abs' :: (Num a, Ord a) => a -> a

对于其他表达式,例如do块,您需要使用带有花括号和分号的非布局语法(eugh)。

答案 5 :(得分:1)

看起来像一次粘贴两条线,或者对每条新行使用control-enter都将它们保持在一起,至少在https://repl.it/languages/haskell处保持一致。您会在第二行的开头看到2个点。或将其放在文件中并:load文件(:l main)。 Abs为何不适用于负数?哦,你必须在数字周围加上括号。

   let abs n | n >= 0 = n 
..           | otherwise = -n
   abs (-1)

答案 6 :(得分:0)

我正在macOS Catalina 10.15.2上使用版本8.2.1的GHCi。以下是我将函数类型声明和警戒组合在一起的方法。请注意,左侧的竖线适用于GHCi多行。

λ: let abs' :: (Num a, Ord a) => a -> a
 |     abs' n | n >= 0 = n | otherwise = -n
 | 
λ: abs' 7
7
λ: abs' (-7)
7