File: d.fut

package info (click to toggle)
haskell-futhark 0.25.32-2
  • 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: 277
file content (12 lines) | stat: -rw-r--r-- 277 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
 
type triad 'a = (a, a, a)
type v3 = triad f32
type m33 = triad v3
entry toM33 a0 a1 a2 b0 b1 b2 c0 c1 c2 : m33 =
    ( (a0, a1, a2)
    , (b0, b1, b2)
    , (c0, c1, c2) )

entry fromM33 (m:m33) =
    ( m.0.0, m.0.1, m.0.2
    , m.1.0, m.1.1, m.1.2
    , m.2.0, m.2.1, m.2.2 )