Original title: Sommeil
Author: Stromae
Adaptation: Denis Bredelet
You can say anything you like
# Imported Clojure functions | |
clojure('<=', 2) -> lte | |
clojure('dec', 1) -> dec | |
# Fibonacci function (recursive) | |
# Takes advantage of dodo ability to return more than one result at once | |
fun fib -> n, return, throw | |
( | |
'<='(n, 0) -> zero | |
if (zero) -> |
clojure('read-line', 0) -> readline | |
clojure('split', 2) -> split | |
clojure('nil?', 1) -> endOfFile | |
clojure('read-string', 1) -> asInt | |
fun loop -> count, break | |
( | |
readline() -> line | |
endOfFile(line) -> eof | |
if (eof) -> |
> library(clock) | |
> x <- as.POSIXct("2020-11-01 00:30:00", "America/New_York") | |
> x <- add_hours(x, 0:2) | |
> x | |
[1] "2020-11-01 00:30:00 EDT" "2020-11-01 01:30:00 EDT" | |
[3] "2020-11-01 01:30:00 EST" | |
> add_years(x, 1) | |
[1] "2021-11-01 00:30:00 EDT" "2021-11-01 01:30:00 EDT" | |
[3] "2021-11-01 01:30:00 EDT" | |
> add_years(x, -1) |
# Note: this was tested on Arm64. It should work on any common 64 bit architecture. | |
# Note 2: typemin(Int64) means NaN and is not handled by the function. | |
extend64to128 = function(w :: Int64) | |
x = abs(w) | |
big = (x << 1) >> 63 # -1 if the number is extended (bit 62 set) | |
neg = (w >>> 62) | 1 # 11 for negative number, 01 for positive | |
rg = leading_zeros(~x << 1) # count the regime bits | |
# That's where it really starts. |
[package] | |
edition = "2020" | |
name = "prime_factors" | |
version = "1.1.1" | |
[dependencies] | |
rand = "0.7.3" |
#ifndef positmacros_h | |
#define positmacros_h | |
#ifdef __cplusplus | |
extern "C"{ | |
#endif | |
#include <stdint.h> | |
#define INT8_MASK 0x7f |
[ 98%] Built target compiler | |
Scanning dependencies of target zig0 | |
[ 98%] Building CXX object CMakeFiles/zig0.dir/src/main.cpp.o | |
[ 99%] Building CXX object CMakeFiles/zig0.dir/src/userland.cpp.o | |
[ 99%] Linking CXX executable zig0 | |
[ 99%] Built target zig0 | |
Scanning dependencies of target userland_target | |
[ 99%] Generating userland.o | |
ar rcs /Users/jido/dev/github/zig/libuserland.a /Users/jido/dev/github/zig/userland.o /Users/jido/Library/Application Support/zig/stage1/o/Kw399qJMMhP1xxYkT-9eyTN-lrfoF9WqGdLNtnNfyyKQhXGVkyyKpvSaF-xJEXD8/compiler_rt.o | |
[ 99%] Built target userland_target |