File: array-09.out

package info (click to toggle)
haskell-typst 0.9-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 16,332 kB
  • sloc: haskell: 8,684; xml: 32; makefile: 3
file content (73 lines) | stat: -rw-r--r-- 2,471 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
--- parse tree ---
[ Comment
, SoftBreak
, Code
    "typ/compiler/array-09.typ"
    ( line 2 , column 2 )
    (Block
       (CodeBlock
          [ Let
              (BasicBind (Just (Identifier "array")))
              (Array
                 [ Reg (Literal (Int 1))
                 , Reg (Literal (Int 2))
                 , Reg (Literal (Int 3))
                 , Reg (Literal (Int 4))
                 ])
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FuncCall
                     (FieldAccess
                        (Ident (Identifier "at")) (Ident (Identifier "array")))
                     [ NormalArg (Literal (Int 0)) ])
              , NormalArg (Literal (Int 1))
              ]
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FuncCall
                     (FieldAccess
                        (Ident (Identifier "at")) (Ident (Identifier "array")))
                     [ NormalArg (Negated (Literal (Int 1))) ])
              , NormalArg (Literal (Int 4))
              ]
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FuncCall
                     (FieldAccess
                        (Ident (Identifier "at")) (Ident (Identifier "array")))
                     [ NormalArg (Negated (Literal (Int 2))) ])
              , NormalArg (Literal (Int 3))
              ]
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FuncCall
                     (FieldAccess
                        (Ident (Identifier "at")) (Ident (Identifier "array")))
                     [ NormalArg (Negated (Literal (Int 3))) ])
              , NormalArg (Literal (Int 2))
              ]
          , FuncCall
              (Ident (Identifier "test"))
              [ NormalArg
                  (FuncCall
                     (FieldAccess
                        (Ident (Identifier "at")) (Ident (Identifier "array")))
                     [ NormalArg (Negated (Literal (Int 4))) ])
              , NormalArg (Literal (Int 1))
              ]
          ]))
, ParBreak
]
--- evaluated ---
document(body: { text(body: [
]), 
                 text(body: [✅]), 
                 text(body: [✅]), 
                 text(body: [✅]), 
                 text(body: [✅]), 
                 text(body: [✅]), 
                 parbreak() })