1

应该写入什么值才能正确运行代码。我给了我没有看到任何输出的任何数量。

f(T, Y) :-Y is sqrt(abs(T)) + 5*T^3.

main :-
    read(As),
    length(As, N), reverse(As , Rs),
    ( foreach(Ai , Rs), for(I, N - 1, 0,  -1) do
        Bi is f(Ai),
            ( Bi > 400  ->  printf("%w TOO  LARGE\n", I)
                ;
                printf("%w %w\n", [I, Bi])
            )
    ).
4

1 回答 1

1

您的程序运行良好。也许您忘记用句号/句号终止数据输入？

[eclipse 2]: main.                     % Invoke 'main' from the ECLiPSe prompt.
 [3,7,5,2].                            % Input the list, terminate with fullstop.

产生这个输出

3 41.4142135623731
2 TOO  LARGE
1 TOO  LARGE
0 136.732050807569

Yes (0.00s cpu)

请记住，如果您使用以 Prolog 语法读取术语的原语之一（read/1,2、read_term/1,2 等），则每个术语都必须以句号终止（尽管 ECLiPSe 也接受文件结尾）。

顺便说一句，您通常只需将数据作为参数传递，而不是使用 read/1。如果您以这种方式更改代码，则可以调用main([3,7,5,2]).

于 2019-04-21T11:40:37.627 回答