File tree Expand file tree Collapse file tree 2 files changed +121
-0
lines changed
Expand file tree Collapse file tree 2 files changed +121
-0
lines changed Original file line number Diff line number Diff line change 1+ 'use strict' ;
2+
3+ var Mt = require ( "./mt" ) ;
4+ var Block = require ( "../../lib/js/block" ) ;
5+ var Ext_list = require ( "./ext_list" ) ;
6+
7+ var suites_000 = /* tuple */ [
8+ "drop" ,
9+ function ( ) {
10+ return /* Eq */ Block . __ ( 0 , [
11+ Ext_list . drop ( 3 , /* :: */ [
12+ 0 ,
13+ /* :: */ [
14+ 1 ,
15+ /* :: */ [
16+ 2 ,
17+ /* [] */ 0
18+ ]
19+ ]
20+ ] ) ,
21+ /* [] */ 0
22+ ] ) ;
23+ }
24+ ] ;
25+
26+ var suites_001 = /* :: */ [
27+ /* tuple */ [
28+ "drop1" ,
29+ function ( ) {
30+ return /* Eq */ Block . __ ( 0 , [
31+ Ext_list . drop ( 2 , /* :: */ [
32+ 0 ,
33+ /* :: */ [
34+ 1 ,
35+ /* :: */ [
36+ 2 ,
37+ /* [] */ 0
38+ ]
39+ ]
40+ ] ) ,
41+ /* :: */ [
42+ 2 ,
43+ /* [] */ 0
44+ ]
45+ ] ) ;
46+ }
47+ ] ,
48+ /* :: */ [
49+ /* tuple */ [
50+ "flat_map" ,
51+ function ( ) {
52+ return /* Eq */ Block . __ ( 0 , [
53+ /* :: */ [
54+ 0 ,
55+ /* :: */ [
56+ 0 ,
57+ /* :: */ [
58+ 1 ,
59+ /* :: */ [
60+ 1 ,
61+ /* :: */ [
62+ 0 ,
63+ /* [] */ 0
64+ ]
65+ ]
66+ ]
67+ ]
68+ ] ,
69+ Ext_list . flat_map ( function ( x ) {
70+ if ( x % 2 ) {
71+ return /* :: */ [
72+ 1 ,
73+ /* :: */ [
74+ 1 ,
75+ /* [] */ 0
76+ ]
77+ ] ;
78+ }
79+ else {
80+ return /* :: */ [
81+ 0 ,
82+ /* [] */ 0
83+ ] ;
84+ }
85+ } , /* :: */ [
86+ 0 ,
87+ /* :: */ [
88+ 0 ,
89+ /* :: */ [
90+ 3 ,
91+ /* :: */ [
92+ 0 ,
93+ /* [] */ 0
94+ ]
95+ ]
96+ ]
97+ ] )
98+ ] ) ;
99+ }
100+ ] ,
101+ /* [] */ 0
102+ ]
103+ ] ;
104+
105+ var suites = /* :: */ [
106+ suites_000 ,
107+ suites_001
108+ ] ;
109+
110+ Mt . from_pair_suites ( "a_list_test.ml" , suites ) ;
111+
112+ exports . suites = suites ;
113+ /* Not a pure module */
Original file line number Diff line number Diff line change 1+ module . exports = function ( ) {
2+ var sum = 0 ;
3+ var i = 0 ;
4+ for ( ; i < arguments . length ; ++ i ) {
5+ sum += arguments [ i ]
6+ }
7+ return sum
8+ }
You can’t perform that action at this time.
0 commit comments