File: simple_nested_test.fut

package info (click to toggle)
haskell-futhark 0.25.32-3
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 18,236 kB
  • sloc: haskell: 100,484; ansic: 12,100; python: 3,440; yacc: 785; sh: 561; javascript: 558; lisp: 399; makefile: 272
file content (23 lines) | stat: -rw-r--r-- 359 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
-- ==
-- input {
--   10 21
-- }
-- output {
--   6
-- }

type t = i32
module NumLib = {
  def plus(a: t, b: t): t = a + b
  module BestNumbers = {
    def four(): t = 4
    def seven(): t = 42
    def six(): t = 41
  }
}


def localplus(a: i32, b: i32): i32 = NumLib.plus (a,b)

def main (a: i32) (b: i32): i32 =
  localplus(NumLib.BestNumbers.four() ,   2)