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 |