Titre original: Why we sing
Auteur: Gregory L Gilpin (ASCAP)
Adaptation: Denis Bredelet
Une note d'espoir
| > 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) |
| 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) -> |
| # 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) -> |