微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

使用guile的Scheme中的if-else语句错误

如何解决使用guile的Scheme中的if-else语句错误

在这里计划的新手总数。

我一段时间以来一直在解决方案问题。我不知道如何编写此权限。我已经查看了该网站上的每个地方以及其他地方,但是我无法使它正常工作。

问题:定义一个平方函数,对参数进行平方。如果参数不是数字,则显示消息“ invalid_input”。

这是我尝试过的:

(define (square x) (cond
                      ((number? x) (* x x))
                      (else (display "invalid_input\n"))
                   )
)

我也尝试过:

 (define (square x) (cond
                       ((number? x) (* x x))
                       ((not (number? x)) (display "invalid_input\n"))
                    )
 )

这:

(define (square x) (if 
                   (number? x) (* x x) (display "invalid_input\n")
                   )
)

当我这样称平方(平方h)时,这些都不起作用。 我在Linux上不断收到此错误

scheme@(guile-user)> (square h)
;;; <stdin>:44:0: warning: possibly unbound variable `h'
<unnamed port>:44:0: In procedure #<procedure 7fcc7d0a0b60 at <current input>:44:0 ()>:
<unnamed port>:44:0: In procedure module-lookup: Unbound variable: h
Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.

由于'h'不是数字,是否应该打印“ invalid_input”? 请帮我在这里。谢谢

解决方法

函数总是在Scheme中求值。对于model = Sequential() model.add(Masking(mask_value=0,input_shape = (input_shape.shape[1],2))) model.add(Bidirectional(LSTM(128,dropout=0,return_sequences=True,activation='tanh'))) model.add(Bidirectional(LSTM(128,return_sequences=False))) model.add((RepeatVector(targets.shape[1]))) model.add(Bidirectional(LSTM(128,return_sequences=True))) model.add(TimeDistributed(Dense(64,activation='relu'))) model.add(TimeDistributed(Dense(1,activation='linear'))) model.build() model.compile(optimizer=optimizers.Adam(0.00001),loss = 'MAE') (square h)是一个未绑定变量;评估h时,由于未绑定h,因此会发出错误。您可以尝试h(square 'h)来查看OP定义是否按预期工作。在第一种情况下,(square "h")是符号,在第二种情况下,'h是字符串;这些不是数字,因此打印"h"

在格式化Scheme代码时,OP应该遵循以下lispy约定; lisps中的非常糟糕的样式是将闭括号括在多行上。这是更易读的样式的相同代码,典型的是lisps:

"invalid_input"
,

您的代码可以正常工作。但是您必须定义h才能使用它。

$ guile
GNU Guile 2.0.13
Copyright (C) 1995-2016 Free Software Foundation,Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software,and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.

您的功能正确。

scheme@(guile-user)> (define (square x)
  (if (number? x)
      (* x x)
      (display "invalid_input\n")))

并按预期工作:

scheme@(guile-user)> (square 5)
$1 = 25

但是,如果传递未定义的值,则会收到错误消息:

scheme@(guile-user)> (square h)
;;; <stdin>:6:0: warning: possibly unbound variable `h'
<unnamed port>:6:0: In procedure #<procedure 5595e9575c20 at <current input>:6:0 ()>:
<unnamed port>:6:0: In procedure module-lookup: Unbound variable: h

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]>,q

您必须确保定义了h

scheme@(guile-user)> (let ((h 5)) (square h))
$2 = 25

这与其他所有语言相同。在C中尝试:

int square (int x) {
  return x * x;
}

int main (int argc,char** argv)
{
  printf ("%d",square (h));
}

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。