72 lines
1.5 KiB
Plaintext
72 lines
1.5 KiB
Plaintext
|
import stdlib.sl
|
||
|
|
|
||
|
|
cstruct Pair
|
||
|
|
cfield a i64
|
||
|
|
cfield b i64
|
||
|
|
end
|
||
|
|
|
||
|
|
cstruct Big
|
||
|
|
cfield a i64
|
||
|
|
cfield b i64
|
||
|
|
cfield c i64
|
||
|
|
end
|
||
|
|
|
||
|
|
cstruct LDiv
|
||
|
|
cfield quot i64
|
||
|
|
cfield rem i64
|
||
|
|
end
|
||
|
|
|
||
|
|
cstruct TimeSpec
|
||
|
|
cfield tv_sec i64
|
||
|
|
cfield tv_nsec i64
|
||
|
|
end
|
||
|
|
|
||
|
|
extern long long pair_sum(struct Pair p)
|
||
|
|
extern struct Pair make_pair(long long seed)
|
||
|
|
extern struct Big make_big(long long seed)
|
||
|
|
extern long long big_sum(struct Big b)
|
||
|
|
extern long long pair_after_six(long long a, long long b, long long c, long long d, long long e, long long f, struct Pair p)
|
||
|
|
extern struct LDiv ldiv(long numer, long denom)
|
||
|
|
extern int timespec_get(struct TimeSpec* ts, int base)
|
||
|
|
extern void exit(int status)
|
||
|
|
|
||
|
|
word main
|
||
|
|
Pair.size alloc dup >r
|
||
|
|
r@ 11 Pair.a!
|
||
|
|
r@ 31 Pair.b!
|
||
|
|
r@ pair_sum puti cr
|
||
|
|
r> Pair.size free
|
||
|
|
|
||
|
|
100 make_big dup >r
|
||
|
|
r@ Big.a@ puti cr
|
||
|
|
r@ Big.b@ puti cr
|
||
|
|
r@ Big.c@ puti cr
|
||
|
|
r@ big_sum puti cr
|
||
|
|
r> Big.size free
|
||
|
|
|
||
|
|
7 make_pair dup >r
|
||
|
|
r@ Pair.a@ puti cr
|
||
|
|
r@ Pair.b@ puti cr
|
||
|
|
r> Pair.size free
|
||
|
|
|
||
|
|
Pair.size alloc dup >r
|
||
|
|
r@ 11 Pair.a!
|
||
|
|
r@ 31 Pair.b!
|
||
|
|
1 2 3 4 5 6 r@ pair_after_six puti cr
|
||
|
|
r> Pair.size free
|
||
|
|
|
||
|
|
20 3 ldiv dup >r
|
||
|
|
r@ LDiv.quot@ puti cr
|
||
|
|
r@ LDiv.rem@ puti cr
|
||
|
|
r> LDiv.size free
|
||
|
|
|
||
|
|
TimeSpec.size alloc dup >r
|
||
|
|
r@ 1 timespec_get 1 == if 1 else 0 end puti cr
|
||
|
|
r@ TimeSpec.tv_sec@ 0 > if 1 else 0 end puti cr
|
||
|
|
r@ TimeSpec.tv_nsec@ 0 >= if 1 else 0 end puti cr
|
||
|
|
r@ TimeSpec.tv_nsec@ 1000000000 < if 1 else 0 end puti cr
|
||
|
|
r> TimeSpec.size free
|
||
|
|
|
||
|
|
0 exit
|
||
|
|
end
|