mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-02-07 15:03:34 +00:00
8da931a7f6
This program popped up on Hacker News recently. It's the only modern compiler I've ever seen that doesn't have dependencies and is easily modified. So I added all of the missing GNU extensions I like to use which means it might be possible soon to build on non-Linux and have third party not vendor gcc binaries.
83 lines
2 KiB
Text
Executable file
83 lines
2 KiB
Text
Executable file
# INTEGER
|
|
2 3 + 5 = assert
|
|
3 2 + 5 = assert
|
|
5 2 - 3 = assert
|
|
2 5 - -3 = assert
|
|
81 3 / 27 = assert
|
|
81 3 // 27 = assert
|
|
2 8 ** 256 = assert
|
|
17 10 % 7 = assert
|
|
17 10 mod 7 = assert
|
|
|
|
# FLOATING POINT
|
|
.1 .2 + .3 - abs epsilon < assert
|
|
pi sqrt pi sqrt * pi - abs epsilon < assert
|
|
3 2 / 1.5 = assert
|
|
pi pi = assert
|
|
pi cos -1 = assert
|
|
pi 2 / sin 1 = assert
|
|
81 3 / 27 = assert
|
|
inf isinf assert
|
|
inf isnormal ! assert
|
|
nan isnormal ! assert
|
|
1 0 / isnormal ! assert
|
|
0 signbit ! assert
|
|
-.5 round -1 = assert
|
|
-.5 floor -1 = assert
|
|
-.5 rint dup 0 = assert signbit assert
|
|
-.5 nearbyint dup 0 = assert signbit assert
|
|
-.5 ceil dup 0 = assert signbit assert
|
|
-.5 trunc dup 0 = assert signbit assert
|
|
0 0 / dup isnan assert signbit assert # is this right?
|
|
1 0 / dup isinf assert signbit ! assert # is this right?
|
|
nan nan != assert # is this right?
|
|
# -nan -nan != assert # is this right?
|
|
inf inf = assert # is this right?
|
|
-inf -inf = assert # is this right?
|
|
|
|
# BIT ARITHMETIC
|
|
-1 ~ 0 = assert
|
|
0xffffffffffffffffffffffffffffffff ~ 0 = assert
|
|
0b1010101 popcnt 4 = assert
|
|
0b1010101 0b0110101 ^ 0b1100000 = assert
|
|
0b1010101 0b0110101 | 0b1110101 = assert
|
|
0b1010101 0b0110101 & 0b0010101 = assert
|
|
0b1010101 1 >> 0b000101010 = assert
|
|
0b1010101 2 >> 0b000010101 = assert
|
|
0b1010101 1 << 0b010101010 = assert
|
|
0b1010101 2 << 0b101010100 = assert
|
|
|
|
# BOOLEAN
|
|
true assert
|
|
false ! assert
|
|
true ! ! assert
|
|
true true && assert
|
|
true false && ! assert
|
|
false true && ! assert
|
|
true false && ! assert
|
|
false true && ! assert
|
|
true true || assert
|
|
false true || assert
|
|
true false || assert
|
|
false false || ! assert
|
|
4 5 < assert
|
|
5 4 < ! assert
|
|
-5 4 < assert
|
|
5 5 < ! assert
|
|
5 5 <= assert
|
|
5 4 > assert
|
|
4 5 > ! assert
|
|
4 -5 > assert
|
|
5 5 > ! assert
|
|
5 5 >= assert
|
|
|
|
# MISC
|
|
1 abs 1 = assert
|
|
-1 abs 1 = assert
|
|
-1 1 max 1 = assert
|
|
1 -1 max 1 = assert
|
|
1 2 max 2 = assert
|
|
-1 1 min -1 = assert
|
|
1 -1 min -1 = assert
|
|
1 2 min 1 = assert
|
|
rand64 rand64 rand64 rand64 != != && assert
|