File: triangles.fut

package info (click to toggle)
haskell-futhark 0.25.32-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, 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 (16 lines) | stat: -rw-r--r-- 282 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
-- ==
-- input {
--   10 21 21
--   19 12 5
-- }
-- output {
--   547
-- }

import "Vec3"

type vec3 = Vec3.Int.t
def f(a: vec3, b: vec3): i32 = Vec3.Int.dot(a , b)
def main (a1: i32) (a2: i32) (a3: i32) (b1: i32) (b2: i32) (b3: i32): i32 =
  Vec3.Int.dot((a1,a2,a2) , (b1,b2,b3))