feat: fix prod build (#21)

Author: hanabi1224

appveyor.yml

@@ -19,10 +19,22 @@ cache:
     - /home/appveyor/.udocker
     - /home/appveyor/.gradle
     - /home/appveyor/.konan
+    - /home/appveyor/.stack
 install:
     - docker info
     - nvm use 14
     - python -V
+    - curl -sSL https://get.haskellstack.org/ | sh
+    # begin tmp vlang installation
+    - git clone https://github.com/vlang/v /tmp/vlang
+    - pushd /tmp/vlang
+    - make && ./v -version
+    - sudo ./v symlink
+    - v -prod examples/hanoi.v
+    # - ./examples/hanoi
+    - popd
+    - v -version
+    # end tmp vlang installation
     - update-alternatives --list java
     - echo $JAVA_HOME
     - export JAVA_HOME=/usr/lib/jvm/java-11-openjdk-amd64/
@@ -38,9 +50,9 @@ install:
     # - popd
 build_script:
     - pushd bench
-    - dotnet run -c Release -p tool -- --task build #--langs swift
-    - dotnet run -c Release -p tool -- --task test #--langs swift
-    - dotnet run -c Release -p tool -- --task bench --fail-fast true #--langs swift
+    - dotnet run -c Release -p tool -- --task build #--langs haskell --verbose true
+    - dotnet run -c Release -p tool -- --task test #--langs haskell
+    - dotnet run -c Release -p tool -- --task bench --fail-fast true #--langs haskell
     - popd
     - pushd website
     - yarn

bench/algorithm/binarytrees/1.hs

@@ -0,0 +1,67 @@
+--
+-- The Computer Language Benchmarks Game
+-- https://salsa.debian.org/benchmarksgame-team/benchmarksgame/
+--
+-- Contributed by Don Stewart
+-- *reset*
+--
+
+import System.Environment
+import Data.Bits
+import Text.Printf
+
+--
+-- an artificially strict tree. 
+--
+-- normally you would ensure the branches are lazy, but this benchmark
+-- requires strict allocation.
+--
+data Tree = Nil | Node !Int !Tree !Tree
+
+minN = 4
+
+io s n t = printf "%s of depth %d\t check: %d\n" s n t
+
+main = do
+    n <- getArgs >>= readIO . head
+    let maxN     = max (minN + 2) n
+        stretchN = maxN + 1
+
+    -- stretch memory tree
+    let c = check (make 0 stretchN)
+    io "stretch tree" stretchN c
+
+    -- allocate a long lived tree
+    let !long    = make 0 maxN
+
+    -- allocate, walk, and deallocate many bottom-up binary trees
+    let vs = depth minN maxN
+    mapM_ (\((m,d,i)) -> io (show m ++ "\t trees") d i) vs
+
+    -- confirm the the long-lived binary tree still exists
+    io "long lived tree" maxN (check long)
+
+-- generate many trees
+depth :: Int -> Int -> [(Int,Int,Int)]
+depth d m
+    | d <= m    = (n,d,sumT d n 0) : depth (d+2) m
+    | otherwise = []
+  where n = 1 `shiftL` (m - d + minN)
+
+-- allocate and check lots of trees
+sumT :: Int -> Int -> Int -> Int
+sumT d 0 t = t
+sumT  d i t = sumT d (i-1) (t + a)
+  where a = check (make 0 d)
+
+
+-- traverse the tree, counting up the nodes
+check :: Tree -> Int
+check Nil          = 0
+check (Node i l r) = 1 + check l + check r
+
+-- build a tree
+make :: Int -> Int -> Tree
+make i 0 = Node i Nil Nil
+make i d = Node i (make d d2) (make d2 d2)
+  where d2 = d-1

bench/algorithm/helloworld/1.hs

@@ -0,0 +1,10 @@
+import System.Environment
+import Text.Printf
+
+main :: IO ()
+main = do
+    args <- getArgs
+    let n = length args
+    let name = if n > 0 then head args else ""
+    printf "Hello world %s!\n" name
+    

bench/algorithm/pidigits/4.hs

@@ -0,0 +1,25 @@
+-- The Computer Language Benchmarks Game
+-- https://salsa.debian.org/benchmarksgame-team/benchmarksgame/
+-- contributed by Bryan O'Sullivan
+-- modified by Eugene Kirpichov: pidgits only generates
+-- the result string instead of printing it. For some
+-- reason, this gives a speedup.
+-- modified by W. Gordon Goodsman to do two divisions
+-- as per the new task requirements.
+
+import System.Environment
+
+pidgits n = 0 % (0 # (1,0,1)) where
+ i%ds
+  | i >= n = []
+  | True = (concat h ++ "\t:" ++ show j ++ "\n") ++ j%t
+  where k = i+10; j = min n k
+        (h,t) | k > n = (take (n`mod`10) ds ++ replicate (k-n) " ",[])
+              | True = splitAt 10 ds
+ j # s | n>a || q/=r = k # t
+       | True = show q : k # (n*10,(a-(q*d))*10,d) -- inline eliminateDigit
+  where k = j+1; t@(n,a,d)=k&s; q=3$s; r=4$s -- two calls to extractDigit
+ c$(n,a,d) = (c*n+a)`div`d -- extractDigit
+ j&(n,a,d) = (n*j,(a+n*2)*y,d*y) where y=(j*2+1) -- nextDigit
+
+main = putStr.pidgits.read.head =<< getArgs

bench/bench_haskell.yaml

@@ -0,0 +1,30 @@
+lang: haskell
+problems:
+  - name: helloworld
+    source:
+      - 1.hs
+  - name: binarytrees
+    source:
+      - 1.hs
+  - name: pidigits
+    source:
+      - 4.hs
+compiler_version_command: stack exec ghc -- --version
+compiler_version_regex:
+runtime_version_parameter:
+runtime_version_regex:
+source_rename_to: Main.hs
+environments:
+  - os: linux
+    compiler: ghc
+    version: latest
+    docker:
+    include: haskell
+    include_sub_dir: app
+    before_build:
+      - stack setup --allow-different-user
+    build: stack build
+    after_build:
+      - cp ./.stack-work/dist/x86_64-linux-tinfo6/Cabal-3.2.1.0/build/app-exe/app-exe ./out/_app
+    out_dir: out
+    run_cmd: _app

bench/bench_vlang.yaml

@@ -15,8 +15,9 @@ environments:
   - os: linux
     compiler: vlang
     version: latest
-    docker: thevlang/vlang
+    # docker: thevlang/vlang
     include:
-    build: v _app.v && mv _app out/
+    include_sub_dir: out
+    build: v -prod out/_app.v
     out_dir: out
     run_cmd: _app

bench/include/haskell/.gitignore

@@ -0,0 +1,6 @@
+*
+!.gitignore
+!app.cabal
+!Setup.hs
+!stack.yaml
+!package.yaml

bench/include/haskell/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

bench/include/haskell/app.cabal

@@ -0,0 +1,32 @@
+cabal-version: 1.12
+
+-- This file has been generated from package.yaml by hpack version 0.33.0.
+--
+-- see: https://github.com/sol/hpack
+--
+-- hash: 4262425e41f3276d7fe43600b5729de75476275836521019c29b7aa2eae295af
+
+name:           app
+version:        0.1.0.0
+build-type:     Simple
+
+library
+  -- other-modules:
+  --     Paths_app
+  -- hs-source-dirs:
+  --     src
+  -- build-depends:
+  --     base >=4.7 && <5
+  -- default-language: Haskell2010
+
+executable app-exe
+  main-is: Main.hs
+  other-modules:
+      Paths_app
+  hs-source-dirs:
+      app
+  ghc-options: -threaded -rtsopts -with-rtsopts=-N -XBangPatterns -XScopedTypeVariables
+  build-depends:
+      app
+    , base >=4.7 && <5
+  default-language: Haskell2010

bench/include/haskell/package.yaml

@@ -0,0 +1,21 @@
+name: app
+version: 0.1.0.0
+
+dependencies:
+  - base >= 4.7 && < 5
+
+# library:
+#   source-dirs: src
+
+executables:
+  app-exe:
+    main: Main.hs
+    source-dirs: app
+    ghc-options:
+      - -threaded
+      - -rtsopts
+      - -with-rtsopts=-N
+      - -XBangPatterns
+      - -XScopedTypeVariables
+    dependencies:
+      - app