Skip to content
This repository was archived by the owner on Jun 5, 2022. It is now read-only.

Commit 3de6542

Browse files
committed
Avoid unnecessary eta abstraction, fix aceil
1 parent 6cac9da commit 3de6542

File tree

1 file changed

+19
-58
lines changed

1 file changed

+19
-58
lines changed

src/Math.purs

Lines changed: 19 additions & 58 deletions
Original file line numberDiff line numberDiff line change
@@ -1,24 +1,12 @@
11
module Math where
22

3-
foreign import abs
4-
"function abs(n){\
5-
\ return Math.abs(n);\
6-
\}" :: Number -> Number
7-
8-
foreign import acos
9-
"function acos(n){\
10-
\ return Math.acos(n);\
11-
\}" :: Number -> Number
12-
13-
foreign import asin
14-
"function asin(n){\
15-
\ return Math.asin(n);\
16-
\}" :: Number -> Number
17-
18-
foreign import atan
19-
"function atan(n){\
20-
\ return Math.atan(n);\
21-
\}" :: Number -> Number
3+
foreign import abs "var abs = Math.abs;" :: Number -> Number
4+
5+
foreign import acos "var acos = Math.acos;" :: Number -> Number
6+
7+
foreign import asin "var asin = Math.asin;" :: Number -> Number
8+
9+
foreign import atan "var atan = Math.atan;" :: Number -> Number
2210

2311
foreign import atan2
2412
"function atan2(y){\
@@ -27,30 +15,15 @@ foreign import atan2
2715
\ };\
2816
\}" :: Number -> Number -> Number
2917

30-
foreign import aceil
31-
"function aceil(n){\
32-
\ return Math.aceil(n);\
33-
\}" :: Number -> Number
18+
foreign import ceil "var ceil = Math.ceil;" :: Number -> Number
3419

35-
foreign import cos
36-
"function cos(n){\
37-
\ return Math.cos(n);\
38-
\}" :: Number -> Number
20+
foreign import cos "var cos = Math.cos;" :: Number -> Number
3921

40-
foreign import exp
41-
"function exp(n){\
42-
\ return Math.exp(n);\
43-
\}" :: Number -> Number
22+
foreign import exp "var exp = Math.exp;" :: Number -> Number
4423

45-
foreign import floor
46-
"function floor(n){\
47-
\ return Math.floor(n);\
48-
\}" :: Number -> Number
24+
foreign import floor "var floor = Math.floor;" :: Number -> Number
4925

50-
foreign import log
51-
"function log(n){\
52-
\ return Math.log(n);\
53-
\}" :: Number -> Number
26+
foreign import log "var log = Math.log;" :: Number -> Number
5427

5528
foreign import max
5629
"function max(n1){\
@@ -73,25 +46,13 @@ foreign import pow
7346
\ }\
7447
\}" :: Number -> Number -> Number
7548

76-
foreign import round
77-
"function round(n){\
78-
\ return Math.round(n);\
79-
\}" :: Number -> Number
80-
81-
foreign import sin
82-
"function sin(n){\
83-
\ return Math.sin(n);\
84-
\}" :: Number -> Number
85-
86-
foreign import sqrt
87-
"function sqrt(n){\
88-
\ return Math.sqrt(n);\
89-
\}" :: Number -> Number
90-
91-
foreign import tan
92-
"function tan(n){\
93-
\ return Math.tan(n);\
94-
\}" :: Number -> Number
49+
foreign import round "var round = Math.round;" :: Number -> Number
50+
51+
foreign import sin "var sin = Math.sin;" :: Number -> Number
52+
53+
foreign import sqrt "var sqrt = Math.sqrt;" :: Number -> Number
54+
55+
foreign import tan "var tan = Math.tan;" :: Number -> Number
9556

9657
foreign import e "var e = Math.E;" :: Number
9758
foreign import ln2 "var ln2 = Math.LN2;" :: Number

0 commit comments

Comments
 (0)