从 Java 获取 Haskell 脚本的结果

Question

我正在尝试创建一个程序来比较各种 haskell 脚本运行所需的时间，稍后将用于创建图形并显示在 GUI 中。我尝试使用 Haskell 库创建所述 GUI，但运气不佳，特别是因为我无法找到适用于 Windows 的最新 GUI 库。我尝试使用 Java 来获得这些结果，但要么返回错误，要么根本没有结果。

我构建了一个最小的示例来大致展示我目前正在做的事情：

    import java.io.*;
public class TestExec {
    public static void main(String[] args) {
        try {
            Process p = Runtime.getRuntime().exec("ghc test.hs 2 2");
            BufferedReader in = new BufferedReader(
                                new InputStreamReader(p.getInputStream()));
            String line = null;
            while ((line = in.readLine()) != null) {
                System.out.println(line);
            }
        } catch (IOException e) {
            e.printStackTrace();
        }
    }
}

这是调用的 Haskell 脚本，在本例中是一个简单的添加：

test x y =  x + y

目前根本没有存储或打印任何结果。有人有什么想法吗？

Answer 1

由于您尝试将其作为可执行文件运行，因此您需要提供一个 main.在你的情况下，它应该看起来像

import System.Environment

test :: Integer -> Integer -> Integer
test = (+)

main = do
  [x, y] <- map read `fmap` getArgs
  print $ x `test` y

这只是读取命令行参数，添加它们，然后打印它们。虽然我之前做过类似的事情，但在 Haskell 中进行基准测试/测试，并将输出数据以更结构化的格式转储到文本文件中，然后用 Java 或您喜欢的任何语言解析/显示它要容易得多。

Answer 2

这主要是一个 Java 问题。搜索Runtime.getRuntime().exec()。

在 Haskell 方面，您需要编写一个独立的 Haskell 脚本。 @jozefg 的The one 可以。你应该可以运行它

runghc /path/to/script.hs 1 2

从命令行。

从 Java 调用它与在 Java 中运行任何其他外部进程没有什么不同。在 Clojure（一种 JVM 语言，为了简洁起见，我使用它）我这样做：

user=> (def p (-> (Runtime/getRuntime) (.exec "/usr/bin/runghc /tmp/test.hs 1 2")))
#'user/p
user=> (-> p .getInputStream input-stream reader line-seq)
("3")

请注意，我使用runghc 运行脚本（不是ghc）。完整路径不是必需的，但可能会有所帮助。您的 Java 程序可以这样修改：

--- TestExec.question.java
+++ TestExec.java
@@ -2,7 +2,7 @@
 public class TestExec {
     public static void main(String[] args) {
         try {
-            Process p = Runtime.getRuntime().exec("ghc test.hs 2 2");
+            Process p = Runtime.getRuntime().exec("/usr/bin/runghc /tmp/test.hs 2 2");
             BufferedReader in = new BufferedReader(
                                 new InputStreamReader(p.getInputStream()));
             String line = null;

修改后的版本可以很好地运行 Haskell 脚本。您可能需要更改指向您 runghc 和 test.hs 位置的路径。

Answer 3

首先要从输出中读取，您需要使用OutputStreamReader(p.getOutputStream()) 而不是InputStreamReader

Answer 4

正如我在评论中所说，这样的基准是完全不正确的。虽然基准测试应该消除尽可能多的侧面海岸。最好的解决方案是使用criterion 包。它可以根据您的需要生成漂亮的图形输出。

小例子：

import Criterion
import Criterion.Main
import Criterion.Config

fac 1 = 1
fac n = n * (fac $ n-1)

myConfig = defaultConfig {
              cfgReport = ljust "report.html"
             }

main = defaultMainWith myConfig (return ()) [
           bench "fac 30" $ whnf fac 30
          ]

执行后，它会生成一个文件“report.html”，其中包含整洁的交互式绘图。