From 4683e3b721ca32ab8a464306f9b6753b2e5a8ec4 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 24 Apr 2021 17:38:11 -0300 Subject: Add po files for new TILs, update whitespace of others --- ...-10-05-swift2nix-run-swift-inside-nix-builds.po | 4 +- ...s-and-parser-combinators-building-a-database.po | 14 +- ...ng-add-memory-to-dmenu-fzf-and-similar-tools.po | 10 +- .../2021-04-03-javascript-naive-slugify.po | 44 +++++ ...-installation-and-ssh-setup-of-iso-os-images.po | 24 ++- ...05-pull-requests-with-git-the-old-school-way.po | 6 +- .../_tils/2021-04-24-clojure-auto-curry.po | 127 ++++++++++++++ ...order-parameterization-of-a-generic-function.po | 185 +++++++++++++++++++++ 8 files changed, 389 insertions(+), 25 deletions(-) create mode 100644 locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po create mode 100644 locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po create mode 100644 locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po (limited to 'locale/pt') diff --git a/locale/pt/LC_MESSAGES/_articles/2020-10-05-swift2nix-run-swift-inside-nix-builds.po b/locale/pt/LC_MESSAGES/_articles/2020-10-05-swift2nix-run-swift-inside-nix-builds.po index 86c8389..3c7e6ec 100644 --- a/locale/pt/LC_MESSAGES/_articles/2020-10-05-swift2nix-run-swift-inside-nix-builds.po +++ b/locale/pt/LC_MESSAGES/_articles/2020-10-05-swift2nix-run-swift-inside-nix-builds.po @@ -12,8 +12,8 @@ msgstr "" msgid "" "I wrote a simple little tool called " -"[swift2nix](https://git.euandreh.xyz/swift2nix/) that allows you trick" -" Swift's package manager into assuming everything is set up. Here's the " +"[swift2nix](https://git.euandreh.xyz/swift2nix/) that allows you trick " +"Swift's package manager into assuming everything is set up. Here's the " "example from swift2nix's README file:" msgstr "" diff --git a/locale/pt/LC_MESSAGES/_articles/2020-11-12-durable-persistent-trees-and-parser-combinators-building-a-database.po b/locale/pt/LC_MESSAGES/_articles/2020-11-12-durable-persistent-trees-and-parser-combinators-building-a-database.po index 0e0bc8c..ecd28a5 100644 --- a/locale/pt/LC_MESSAGES/_articles/2020-11-12-durable-persistent-trees-and-parser-combinators-building-a-database.po +++ b/locale/pt/LC_MESSAGES/_articles/2020-11-12-durable-persistent-trees-and-parser-combinators-building-a-database.po @@ -381,18 +381,18 @@ msgstr "" #~ msgid "" #~ "I've started a fork of cbindgen: " -#~ "[x-bindgen](https://git.euandreh.xyz/x-bindgen/). Right now it is just " -#~ "a copy of cbindgen verbatim, and I plan to remove all C and C++ emitting " -#~ "code from it, and add a IR emitting code instead." +#~ "[x-bindgen](https://git.euandreh.xyz/x-bindgen/). Right now it is just a " +#~ "copy of cbindgen verbatim, and I plan to remove all C and C++ emitting code " +#~ "from it, and add a IR emitting code instead." #~ msgstr "" #~ msgid "" #~ "When starting working on x-bindgen, I realized I didn't know what to look " #~ "for in a header file, as I haven't written any C code in many years. So as I" -#~ " was writing [libedn](https://git.euandreh.xyz/libedn/), I didn't know " -#~ "how to build a good C API to expose. So I tried porting the code to C, and " -#~ "right now I'm working on building a *good* C API for a JSON parser using " -#~ "parser combinators: [ParsecC](https://git.euandreh.xyz/parsecc/)." +#~ " was writing [libedn](https://git.euandreh.xyz/libedn/), I didn't know how " +#~ "to build a good C API to expose. So I tried porting the code to C, and right" +#~ " now I'm working on building a *good* C API for a JSON parser using parser " +#~ "combinators: [ParsecC](https://git.euandreh.xyz/parsecc/)." #~ msgstr "" #~ msgid "" diff --git a/locale/pt/LC_MESSAGES/_articles/2021-01-26-ann-remembering-add-memory-to-dmenu-fzf-and-similar-tools.po b/locale/pt/LC_MESSAGES/_articles/2021-01-26-ann-remembering-add-memory-to-dmenu-fzf-and-similar-tools.po index a7e3382..c85754b 100644 --- a/locale/pt/LC_MESSAGES/_articles/2021-01-26-ann-remembering-add-memory-to-dmenu-fzf-and-similar-tools.po +++ b/locale/pt/LC_MESSAGES/_articles/2021-01-26-ann-remembering-add-memory-to-dmenu-fzf-and-similar-tools.po @@ -269,9 +269,9 @@ msgstr "" msgid "" "For my personal use, I've [packaged](https://git.euandreh.xyz/package-" -"repository/) `remembering` for GNU Guix and Nix. Packaging it to any " -"other distribution should be trivial, or just downloading the tarball and " -"running `[sudo] make install`." +"repository/) `remembering` for GNU Guix and Nix. Packaging it to any other " +"distribution should be trivial, or just downloading the tarball and running " +"`[sudo] make install`." msgstr "" #~ msgid "" @@ -288,8 +288,8 @@ msgstr "" #~ msgid "" #~ "Today I pushed v0.1.0 of " -#~ "[remembering](https://git.euandreh.xyz/remembering/), a tool to " -#~ "enhance the interactive usability of menu-like tools, such as " +#~ "[remembering](https://git.euandreh.xyz/remembering/), a tool to enhance the " +#~ "interactive usability of menu-like tools, such as " #~ "[dmenu](https://tools.suckless.org/dmenu/) and " #~ "[fzf](https://github.com/junegunn/fzf)." #~ msgstr "" diff --git a/locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po b/locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po new file mode 100644 index 0000000..6f638f2 --- /dev/null +++ b/locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po @@ -0,0 +1,44 @@ +# +msgid "" +msgstr "" + +msgid "title: JavaScript naive slugify" +msgstr "" + +msgid "date: 2021-04-03" +msgstr "" + +msgid "layout: post" +msgstr "" + +msgid "lang: en" +msgstr "" + +msgid "ref: javascript-naive-slugify" +msgstr "" + +msgid "" +"const s = \"Pézão: açaí, saci-pererê.\";\n" +"\n" +"function slugify(s) {\n" +" return s\n" +" .toLowerCase()\n" +" .replaceAll(\":\", \"\")\n" +" .replaceAll(\".\", \"\")\n" +" .replaceAll(\",\", \"\")\n" +" .replaceAll(\"-\", \"\")\n" +" .replaceAll(\"á\", \"a\")\n" +" .replaceAll(\"ã\", \"a\")\n" +" .replaceAll(\"à\", \"a\")\n" +" .replaceAll(\"é\", \"e\")\n" +" .replaceAll(\"ê\", \"e\")\n" +" .replaceAll(\"í\", \"i\")\n" +" .replaceAll(\"ó\", \"o\")\n" +" .replaceAll(\"ô\", \"o\")\n" +" .replaceAll(\"ú\", \"u\")\n" +" .replaceAll(\"ü\", \"u\")\n" +" .replaceAll(\"ç\", \"c\");\n" +"}\n" +"\n" +"console.log(slugify(s));\n" +msgstr "" diff --git a/locale/pt/LC_MESSAGES/_screencasts/2021-02-07-autoqemu-automate-installation-and-ssh-setup-of-iso-os-images.po b/locale/pt/LC_MESSAGES/_screencasts/2021-02-07-autoqemu-automate-installation-and-ssh-setup-of-iso-os-images.po index badc41e..d0e9b44 100644 --- a/locale/pt/LC_MESSAGES/_screencasts/2021-02-07-autoqemu-automate-installation-and-ssh-setup-of-iso-os-images.po +++ b/locale/pt/LC_MESSAGES/_screencasts/2021-02-07-autoqemu-automate-installation-and-ssh-setup-of-iso-os-images.po @@ -56,14 +56,6 @@ msgstr "" msgid "It assumes that `$HOME/.local/bin` is in `$PATH`." msgstr "" -msgid "" -"This screencast is a simple demo of automating the installation of Alpine " -"Linux 3.12.3 standard x86_64 with " -"[AutoQEMU](https://git.euandreh.xyz/autoqemu/), which is nothing more " -"than POSIX sh, [expect](https://core.tcl-lang.org/expect/index) scripts and " -"Makefiles glued together." -msgstr "" - msgid "" "pushd `mktemp -d`\n" "git clone https://git.euandreh.xyz/autoqemu .\n" @@ -72,6 +64,22 @@ msgid "" "autoqemu ssh alpine\n" msgstr "" +msgid "" +"This screencast is a simple demo of automating the installation of Alpine " +"Linux 3.12.3 standard x86_64 with " +"[AutoQEMU](https://git.euandreh.xyz/autoqemu/about), which is nothing more " +"than POSIX sh, [expect](https://core.tcl-lang.org/expect/index) scripts and " +"Makefiles glued together." +msgstr "" + +#~ msgid "" +#~ "This screencast is a simple demo of automating the installation of Alpine " +#~ "Linux 3.12.3 standard x86_64 with " +#~ "[AutoQEMU](https://git.euandreh.xyz/autoqemu/), which is nothing more than " +#~ "POSIX sh, [expect](https://core.tcl-lang.org/expect/index) scripts and " +#~ "Makefiles glued together." +#~ msgstr "" + #~ msgid "" #~ "pushd `mktemp -d`\n" #~ "git clone https://git.euandreh.xyz/autoqemu .\n" diff --git a/locale/pt/LC_MESSAGES/_tils/2020-09-05-pull-requests-with-git-the-old-school-way.po b/locale/pt/LC_MESSAGES/_tils/2020-09-05-pull-requests-with-git-the-old-school-way.po index 182061b..1610cea 100644 --- a/locale/pt/LC_MESSAGES/_tils/2020-09-05-pull-requests-with-git-the-old-school-way.po +++ b/locale/pt/LC_MESSAGES/_tils/2020-09-05-pull-requests-with-git-the-old-school-way.po @@ -25,9 +25,9 @@ msgid "" "The only difference is that you're working with only Git itself, so you're " "not tied to any Git hosting provider: you can send pull requests across them" " transparently! You could even use your own " -"[cgit](https://git.zx2c4.com/cgit/) installation. No need to be locked" -" in by any of them, putting the \"D\" back in \"DVCS\": it's a " -"**distributed** version control system." +"[cgit](https://git.zx2c4.com/cgit/) installation. No need to be locked in by" +" any of them, putting the \"D\" back in \"DVCS\": it's a **distributed** " +"version control system." msgstr "" msgid "`git request-pull` introduction" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po new file mode 100644 index 0000000..67ff1b4 --- /dev/null +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -0,0 +1,127 @@ +# +msgid "" +msgstr "" + +msgid "title: Clojure auto curry" +msgstr "" + +msgid "date: 2021-04-24" +msgstr "" + +msgid "layout: post" +msgstr "" + +msgid "lang: en" +msgstr "" + +msgid "ref: clojure-auto-curry" +msgstr "" + +msgid "" +"A simple macro defined by [Loretta " +"He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " +"create Clojure functions that are curried on all arguments, relying on " +"Clojure's multi-arity support:" +msgstr "" + +msgid "" +"(defmacro defcurry\n" +" [fname args & body]\n" +" (let [partials (map (fn [n]\n" +" `(~(subvec args 0 n) (partial ~fname ~@(take n args))))\n" +" (range 1 (count args)))]\n" +" `(defn ~fname\n" +" (~args ~@body)\n" +" ~@partials)))\n" +msgstr "" + +msgid "A naive `add` definition, alongside its usage and macroexpansion:" +msgstr "" + +msgid "" +"user=> (defcurry add\n" +" [a b c d e]\n" +" (+ 1 2 3 4 5))\n" +"#'user/add\n" +"\n" +"user=> (add 1)\n" +"#object[clojure.core$partial$fn__5857 0x2c708440 \"clojure.core$partial$fn__5857@2c708440\"]\n" +"\n" +"user=> (add 1 2 3 4)\n" +"#object[clojure.core$partial$fn__5863 0xf4c0e4e \"clojure.core$partial$fn__5863@f4c0e4e\"]\n" +"\n" +"user=> ((add 1) 2 3 4 5)\n" +"15\n" +"\n" +"user=> (((add 1) 2 3) 4 5)\n" +"15\n" +"\n" +"user=> (use 'clojure.pprint)\n" +"nil\n" +"\n" +"user=> (pprint\n" +" (macroexpand\n" +" '(defcurry add\n" +" [a b c d e]\n" +" (+ 1 2 3 4 5))))\n" +"(def\n" +" add\n" +" (clojure.core/fn\n" +" ([a b c d e] (+ 1 2 3 4 5))\n" +" ([a] (clojure.core/partial add a))\n" +" ([a b] (clojure.core/partial add a b))\n" +" ([a b c] (clojure.core/partial add a b c))\n" +" ([a b c d] (clojure.core/partial add a b c d))))\n" +"nil\n" +msgstr "" + +msgid "" +"This simplistic `defcurry` definition doesn't support optional parameters, " +"multi-arity, `&` rest arguments, docstrings, etc., but it could certainly " +"evolve to do so." +msgstr "" + +msgid "" +"I like how `defcurry` is so short, and abdicates the responsability of doing" +" the multi-arity logic to Clojure's built-in multi-arity support. Simple and" +" elegant." +msgstr "" + +msgid "Same Clojure as before, now with auto-currying via macros." +msgstr "" + +msgid "Comparison with Common Lisp" +msgstr "" + +msgid "My attempt at writing an equivalent for Common Lisp gives me:" +msgstr "" + +msgid "" +"(defun curry-n (n fn)\n" +" (if (= 0 n)\n" +" (funcall fn)\n" +" (lambda (&rest rest)\n" +" (curry-n (something n) fn))))\n" +"\n" +"(defun add (a b c d e)\n" +" (curry-n\n" +" (length '(a b c d e))\n" +" (lambda (&rest rest)\n" +" (apply #'+ rest))))\n" +msgstr "" + +msgid "" +"Without built-in multi-arity support, we have to do more work, like tracking" +" the number of arguments consumed so far. That is, without dependending on " +"any library, sticking to ANSI Common Lisp." +msgstr "" + +msgid "" +"This also require `funcall`s, since we return a `lambda` that doesn't live " +"in the function namespace." +msgstr "" + +msgid "" +"Like the Clojure one, it doesn't support optional parameters, `&rest` rest " +"arguments, docstrings, etc., but it also could evolve to do so." +msgstr "" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po new file mode 100644 index 0000000..b773879 --- /dev/null +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -0,0 +1,185 @@ +# +msgid "" +msgstr "" + +msgid "" +"title: Common Lisp argument precedence order parameterization of a generic " +"function" +msgstr "" + +msgid "date: 2021-04-24" +msgstr "" + +msgid "layout: post" +msgstr "" + +msgid "lang: en" +msgstr "" + +msgid "" +"ref: common-lisp-argument-precedence-order-parameterization-of-a-generic-" +"function" +msgstr "" + +msgid "" +"When CLOS dispatches a method, it picks the most specific method definition " +"to the argument list:" +msgstr "" + +msgid "" +"\n" +"* (defgeneric a-fn (x))\n" +"#\n" +"\n" +"* (defmethod a-fn (x) :default-method)\n" +"#\n" +"\n" +"* (defmethod a-fn ((x number)) :a-number)\n" +"#\n" +"\n" +"* (defmethod a-fn ((x (eql 1))) :number-1)\n" +"#\n" +"\n" +"* (a-fn nil)\n" +":DEFAULT-METHOD\n" +"\n" +"* (a-fn \"1\")\n" +":DEFAULT-METHOD\n" +"\n" +"* (a-fn 0)\n" +":A-NUMBER\n" +"\n" +"* (a-fn 1)\n" +":NUMBER-1\n" +msgstr "" + +msgid "" +"CLOS uses a similar logic when choosing the method from parent classes, when" +" multiple ones are available:" +msgstr "" + +msgid "" +"* (defclass class-a () ())\n" +"\n" +"#\n" +"* (defclass class-b () ())\n" +"\n" +"#\n" +"* (defgeneric another-fn (obj))\n" +"\n" +"#\n" +"* (defmethod another-fn ((obj class-a)) :class-a)\n" +"; Compiling LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OBJ):\n" +"; Compiling Top-Level Form:\n" +"\n" +"#\n" +"* (defmethod another-fn ((obj class-b)) :class-b)\n" +"; Compiling LAMBDA (.PV-CELL. .NEXT-METHOD-CALL. OBJ):\n" +"; Compiling Top-Level Form:\n" +"\n" +"#\n" +msgstr "" + +msgid "" +"Given the above definitions, when inheriting from `class-a` and `class-b`, " +"the order of inheritance matters:" +msgstr "" + +msgid "" +"* (defclass class-a-coming-first (class-a class-b) ())\n" +"#\n" +"\n" +"* (defclass class-b-coming-first (class-b class-a) ())\n" +"#\n" +"\n" +"* (another-fn (make-instance 'class-a-coming-first))\n" +":CLASS-A\n" +"\n" +"* (another-fn (make-instance 'class-b-coming-first))\n" +":CLASS-B\n" +msgstr "" + +msgid "" +"Combining the order of inheritance with generic functions with multiple " +"arguments, CLOS has to make a choice of how to pick a method given two " +"competing definitions, and its default strategy is prioritizing from left to" +" right:" +msgstr "" + +msgid "" +"* (defgeneric yet-another-fn (obj1 obj2))\n" +"#\n" +"\n" +"* (defmethod yet-another-fn ((obj1 class-a) obj2) :first-arg-specialized)\n" +"#\n" +"\n" +"* (defmethod yet-another-fn (obj1 (obj2 class-b)) :second-arg-specialized)\n" +"#\n" +"\n" +"* (yet-another-fn (make-instance 'class-a) (make-instance 'class-b))\n" +":FIRST-ARG-SPECIALIZED\n" +msgstr "" + +msgid "" +"CLOS has to make a choice between the first and the second definition of " +"`yet-another-fn`, but its choice is just a heuristic. What if we want to the" +" choice to be based on the second argument first?" +msgstr "" + +msgid "" +"For that, we use the `:argument-precedence-order` option when declaring a " +"generic function:" +msgstr "" + +msgid "" +"* (defgeneric yet-another-fn (obj1 obj2) (:argument-precedence-order obj2 obj1))\n" +"#\n" +"\n" +"* (yet-another-fn (make-instance 'class-a) (make-instance 'class-b))\n" +":SECOND-ARG-SPECIALIZED\n" +msgstr "" + +msgid "" +"I liked that the `:argument-precedence-order` option exists. We shouldn't " +"have to change the arguments from `(obj1 obj2)` to `(obj2 obj1)` just to " +"make CLOS pick the method that we want. We can configure its default " +"behaviour if desired, and keep the order of arguments however it best fits " +"the generic function." +msgstr "" + +msgid "Comparison with Clojure" +msgstr "" + +msgid "Clojure has an equivalent, when using `defmulti`." +msgstr "" + +msgid "" +"Since when declaring a multi-method with `defmulti` we must define the " +"dispatch function, Clojure uses it to pick the method definition. Since the " +"dispatch function is required, there is no need for a default behaviour, " +"such as left-to-right." +msgstr "" + +msgid "Conclusion" +msgstr "" + +msgid "" +"Making the argument precedence order configurable for generic functions but " +"not for class definitions makes a lot of sense." +msgstr "" + +msgid "" +"When declaring a class, we can choose the precedence order, and that is " +"about it. But when defining a generic function, the order of argumentws is " +"more important to the function semantics, and the argument precedence being " +"left-to-right is just the default behaviour." +msgstr "" + +msgid "" +"One shouldn't change the order of arguments of a generic function for the " +"sake of tailoring it to the CLOS priority ranking algorithm, but doing it " +"for a class definition is just fine." +msgstr "" + +msgid "TIL." +msgstr "" -- cgit v1.2.3 From b7bc24827c15e802c867eefdc562fab0db1b49af Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 24 Apr 2021 17:50:22 -0300 Subject: Proofread TIL on CLOS --- ...order-parameterization-of-a-generic-function.md | 4 +-- .../_tils/2021-04-24-clojure-auto-curry.po | 42 ++++++++++++++-------- ...order-parameterization-of-a-generic-function.po | 39 +++++++++++++------- .../_tils/2021-04-24-clojure-auto-curry.po | 42 ++++++++++++++-------- ...order-parameterization-of-a-generic-function.po | 39 +++++++++++++------- .../_tils/2021-04-24-clojure-auto-curry.po | 42 ++++++++++++++-------- ...order-parameterization-of-a-generic-function.po | 39 +++++++++++++------- 7 files changed, 164 insertions(+), 83 deletions(-) (limited to 'locale/pt') diff --git a/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md b/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md index 67a6799..eb19b38 100644 --- a/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md +++ b/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md @@ -98,7 +98,7 @@ Combining the order of inheritance with generic functions with multiple argument ``` CLOS has to make a choice between the first and the second definition of `yet-another-fn`, but its choice is just a heuristic. -What if we want to the choice to be based on the second argument first? +What if we want the choice to be based on the second argument, instead of the first? For that, we use the `:argument-precedence-order` option when declaring a generic function: @@ -126,7 +126,7 @@ Since the dispatch function is required, there is no need for a default behaviou Making the argument precedence order configurable for generic functions but not for class definitions makes a lot of sense. When declaring a class, we can choose the precedence order, and that is about it. -But when defining a generic function, the order of argumentws is more important to the function semantics, and the argument precedence being left-to-right is just the default behaviour. +But when defining a generic function, the order of arguments is more important to the function semantics, and the argument precedence being left-to-right is just the default behaviour. One shouldn't change the order of arguments of a generic function for the sake of tailoring it to the CLOS priority ranking algorithm, but doing it for a class definition is just fine. diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 67ff1b4..67c4f2e 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -96,20 +96,6 @@ msgstr "" msgid "My attempt at writing an equivalent for Common Lisp gives me:" msgstr "" -msgid "" -"(defun curry-n (n fn)\n" -" (if (= 0 n)\n" -" (funcall fn)\n" -" (lambda (&rest rest)\n" -" (curry-n (something n) fn))))\n" -"\n" -"(defun add (a b c d e)\n" -" (curry-n\n" -" (length '(a b c d e))\n" -" (lambda (&rest rest)\n" -" (apply #'+ rest))))\n" -msgstr "" - msgid "" "Without built-in multi-arity support, we have to do more work, like tracking" " the number of arguments consumed so far. That is, without dependending on " @@ -125,3 +111,31 @@ msgid "" "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " "arguments, docstrings, etc., but it also could evolve to do so." msgstr "" + +msgid "" +"(defun curry-n (n fn)\n" +" (if (= 0 n)\n" +" (funcall fn)\n" +" (lambda (&rest rest)\n" +" (curry-n (something n) fn))))\n" +"\n" +"(defun add (a b c d e)\n" +" (curry-n\n" +" (length '(a b c d e))\n" +" (lambda (&rest rest)\n" +" (apply #'+ rest))))\n" +msgstr "" + +#~ msgid "" +#~ "(defun curry-n (n fn)\n" +#~ " (if (= 0 n)\n" +#~ " (funcall fn)\n" +#~ " (lambda (&rest rest)\n" +#~ " (curry-n (something n) fn))))\n" +#~ "\n" +#~ "(defun add (a b c d e)\n" +#~ " (curry-n\n" +#~ " (length '(a b c d e))\n" +#~ " (lambda (&rest rest)\n" +#~ " (apply #'+ rest))))\n" +#~ msgstr "" diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index b773879..4ca9625 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -120,12 +120,6 @@ msgid "" ":FIRST-ARG-SPECIALIZED\n" msgstr "" -msgid "" -"CLOS has to make a choice between the first and the second definition of " -"`yet-another-fn`, but its choice is just a heuristic. What if we want to the" -" choice to be based on the second argument first?" -msgstr "" - msgid "" "For that, we use the `:argument-precedence-order` option when declaring a " "generic function:" @@ -168,13 +162,6 @@ msgid "" "not for class definitions makes a lot of sense." msgstr "" -msgid "" -"When declaring a class, we can choose the precedence order, and that is " -"about it. But when defining a generic function, the order of argumentws is " -"more important to the function semantics, and the argument precedence being " -"left-to-right is just the default behaviour." -msgstr "" - msgid "" "One shouldn't change the order of arguments of a generic function for the " "sake of tailoring it to the CLOS priority ranking algorithm, but doing it " @@ -183,3 +170,29 @@ msgstr "" msgid "TIL." msgstr "" + +msgid "" +"CLOS has to make a choice between the first and the second definition of " +"`yet-another-fn`, but its choice is just a heuristic. What if we want the " +"choice to be based on the second argument, instead of the first?" +msgstr "" + +msgid "" +"When declaring a class, we can choose the precedence order, and that is " +"about it. But when defining a generic function, the order of arguments is " +"more important to the function semantics, and the argument precedence being " +"left-to-right is just the default behaviour." +msgstr "" + +#~ msgid "" +#~ "CLOS has to make a choice between the first and the second definition of " +#~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" +#~ " choice to be based on the second argument first?" +#~ msgstr "" + +#~ msgid "" +#~ "When declaring a class, we can choose the precedence order, and that is " +#~ "about it. But when defining a generic function, the order of argumentws is " +#~ "more important to the function semantics, and the argument precedence being " +#~ "left-to-right is just the default behaviour." +#~ msgstr "" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 67ff1b4..67c4f2e 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -96,20 +96,6 @@ msgstr "" msgid "My attempt at writing an equivalent for Common Lisp gives me:" msgstr "" -msgid "" -"(defun curry-n (n fn)\n" -" (if (= 0 n)\n" -" (funcall fn)\n" -" (lambda (&rest rest)\n" -" (curry-n (something n) fn))))\n" -"\n" -"(defun add (a b c d e)\n" -" (curry-n\n" -" (length '(a b c d e))\n" -" (lambda (&rest rest)\n" -" (apply #'+ rest))))\n" -msgstr "" - msgid "" "Without built-in multi-arity support, we have to do more work, like tracking" " the number of arguments consumed so far. That is, without dependending on " @@ -125,3 +111,31 @@ msgid "" "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " "arguments, docstrings, etc., but it also could evolve to do so." msgstr "" + +msgid "" +"(defun curry-n (n fn)\n" +" (if (= 0 n)\n" +" (funcall fn)\n" +" (lambda (&rest rest)\n" +" (curry-n (something n) fn))))\n" +"\n" +"(defun add (a b c d e)\n" +" (curry-n\n" +" (length '(a b c d e))\n" +" (lambda (&rest rest)\n" +" (apply #'+ rest))))\n" +msgstr "" + +#~ msgid "" +#~ "(defun curry-n (n fn)\n" +#~ " (if (= 0 n)\n" +#~ " (funcall fn)\n" +#~ " (lambda (&rest rest)\n" +#~ " (curry-n (something n) fn))))\n" +#~ "\n" +#~ "(defun add (a b c d e)\n" +#~ " (curry-n\n" +#~ " (length '(a b c d e))\n" +#~ " (lambda (&rest rest)\n" +#~ " (apply #'+ rest))))\n" +#~ msgstr "" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index b773879..4ca9625 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -120,12 +120,6 @@ msgid "" ":FIRST-ARG-SPECIALIZED\n" msgstr "" -msgid "" -"CLOS has to make a choice between the first and the second definition of " -"`yet-another-fn`, but its choice is just a heuristic. What if we want to the" -" choice to be based on the second argument first?" -msgstr "" - msgid "" "For that, we use the `:argument-precedence-order` option when declaring a " "generic function:" @@ -168,13 +162,6 @@ msgid "" "not for class definitions makes a lot of sense." msgstr "" -msgid "" -"When declaring a class, we can choose the precedence order, and that is " -"about it. But when defining a generic function, the order of argumentws is " -"more important to the function semantics, and the argument precedence being " -"left-to-right is just the default behaviour." -msgstr "" - msgid "" "One shouldn't change the order of arguments of a generic function for the " "sake of tailoring it to the CLOS priority ranking algorithm, but doing it " @@ -183,3 +170,29 @@ msgstr "" msgid "TIL." msgstr "" + +msgid "" +"CLOS has to make a choice between the first and the second definition of " +"`yet-another-fn`, but its choice is just a heuristic. What if we want the " +"choice to be based on the second argument, instead of the first?" +msgstr "" + +msgid "" +"When declaring a class, we can choose the precedence order, and that is " +"about it. But when defining a generic function, the order of arguments is " +"more important to the function semantics, and the argument precedence being " +"left-to-right is just the default behaviour." +msgstr "" + +#~ msgid "" +#~ "CLOS has to make a choice between the first and the second definition of " +#~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" +#~ " choice to be based on the second argument first?" +#~ msgstr "" + +#~ msgid "" +#~ "When declaring a class, we can choose the precedence order, and that is " +#~ "about it. But when defining a generic function, the order of argumentws is " +#~ "more important to the function semantics, and the argument precedence being " +#~ "left-to-right is just the default behaviour." +#~ msgstr "" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 67ff1b4..67c4f2e 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -96,20 +96,6 @@ msgstr "" msgid "My attempt at writing an equivalent for Common Lisp gives me:" msgstr "" -msgid "" -"(defun curry-n (n fn)\n" -" (if (= 0 n)\n" -" (funcall fn)\n" -" (lambda (&rest rest)\n" -" (curry-n (something n) fn))))\n" -"\n" -"(defun add (a b c d e)\n" -" (curry-n\n" -" (length '(a b c d e))\n" -" (lambda (&rest rest)\n" -" (apply #'+ rest))))\n" -msgstr "" - msgid "" "Without built-in multi-arity support, we have to do more work, like tracking" " the number of arguments consumed so far. That is, without dependending on " @@ -125,3 +111,31 @@ msgid "" "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " "arguments, docstrings, etc., but it also could evolve to do so." msgstr "" + +msgid "" +"(defun curry-n (n fn)\n" +" (if (= 0 n)\n" +" (funcall fn)\n" +" (lambda (&rest rest)\n" +" (curry-n (something n) fn))))\n" +"\n" +"(defun add (a b c d e)\n" +" (curry-n\n" +" (length '(a b c d e))\n" +" (lambda (&rest rest)\n" +" (apply #'+ rest))))\n" +msgstr "" + +#~ msgid "" +#~ "(defun curry-n (n fn)\n" +#~ " (if (= 0 n)\n" +#~ " (funcall fn)\n" +#~ " (lambda (&rest rest)\n" +#~ " (curry-n (something n) fn))))\n" +#~ "\n" +#~ "(defun add (a b c d e)\n" +#~ " (curry-n\n" +#~ " (length '(a b c d e))\n" +#~ " (lambda (&rest rest)\n" +#~ " (apply #'+ rest))))\n" +#~ msgstr "" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index b773879..4ca9625 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -120,12 +120,6 @@ msgid "" ":FIRST-ARG-SPECIALIZED\n" msgstr "" -msgid "" -"CLOS has to make a choice between the first and the second definition of " -"`yet-another-fn`, but its choice is just a heuristic. What if we want to the" -" choice to be based on the second argument first?" -msgstr "" - msgid "" "For that, we use the `:argument-precedence-order` option when declaring a " "generic function:" @@ -168,13 +162,6 @@ msgid "" "not for class definitions makes a lot of sense." msgstr "" -msgid "" -"When declaring a class, we can choose the precedence order, and that is " -"about it. But when defining a generic function, the order of argumentws is " -"more important to the function semantics, and the argument precedence being " -"left-to-right is just the default behaviour." -msgstr "" - msgid "" "One shouldn't change the order of arguments of a generic function for the " "sake of tailoring it to the CLOS priority ranking algorithm, but doing it " @@ -183,3 +170,29 @@ msgstr "" msgid "TIL." msgstr "" + +msgid "" +"CLOS has to make a choice between the first and the second definition of " +"`yet-another-fn`, but its choice is just a heuristic. What if we want the " +"choice to be based on the second argument, instead of the first?" +msgstr "" + +msgid "" +"When declaring a class, we can choose the precedence order, and that is " +"about it. But when defining a generic function, the order of arguments is " +"more important to the function semantics, and the argument precedence being " +"left-to-right is just the default behaviour." +msgstr "" + +#~ msgid "" +#~ "CLOS has to make a choice between the first and the second definition of " +#~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" +#~ " choice to be based on the second argument first?" +#~ msgstr "" + +#~ msgid "" +#~ "When declaring a class, we can choose the precedence order, and that is " +#~ "about it. But when defining a generic function, the order of argumentws is " +#~ "more important to the function semantics, and the argument precedence being " +#~ "left-to-right is just the default behaviour." +#~ msgstr "" -- cgit v1.2.3 From 75423d429d637a311748adff0599136c70522f12 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 24 Apr 2021 18:28:27 -0300 Subject: Add references section to TIL on CLOS --- ...browse-a-git-repository-at-a-specific-commit.md | 2 +- ...order-parameterization-of-a-generic-function.md | 4 ++ ...browse-a-git-repository-at-a-specific-commit.po | 9 ++- .../_tils/2021-04-24-clojure-auto-curry.po | 79 ++++++++++++---------- ...order-parameterization-of-a-generic-function.po | 9 +++ ...browse-a-git-repository-at-a-specific-commit.po | 9 ++- .../_tils/2021-04-24-clojure-auto-curry.po | 79 ++++++++++++---------- ...order-parameterization-of-a-generic-function.po | 9 +++ ...browse-a-git-repository-at-a-specific-commit.po | 9 ++- .../_tils/2021-04-24-clojure-auto-curry.po | 79 ++++++++++++---------- ...order-parameterization-of-a-generic-function.po | 9 +++ 11 files changed, 179 insertions(+), 118 deletions(-) (limited to 'locale/pt') diff --git a/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.md b/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.md index 7965d29..d06f0c1 100644 --- a/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.md +++ b/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.md @@ -77,7 +77,7 @@ After any of those checkouts, you have to `git reset .` to reset your current staging area back to what it was before the checkout. -## References: +## References 1. [GIT: Checkout to a specific folder][0] (StackOverflow) diff --git a/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md b/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md index eb19b38..cce0e42 100644 --- a/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md +++ b/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.md @@ -131,3 +131,7 @@ But when defining a generic function, the order of arguments is more important t One shouldn't change the order of arguments of a generic function for the sake of tailoring it to the CLOS priority ranking algorithm, but doing it for a class definition is just fine. TIL. + +## References + +1. [Object-Oriented Programming in Common Lisp: A Programmer's Guide to CLOS](https://en.wikipedia.org/wiki/Object-Oriented_Programming_in_Common_Lisp), by Sonja E. Keene diff --git a/locale/eo/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po b/locale/eo/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po index 421e295..6030e0c 100644 --- a/locale/eo/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po +++ b/locale/eo/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po @@ -49,9 +49,6 @@ msgid "" "current staging area back to what it was before the checkout." msgstr "" -msgid "References:" -msgstr "" - msgid "" "[GIT: Checkout to a specific folder](https://stackoverflow.com/a/16493707) " "(StackOverflow)" @@ -107,6 +104,12 @@ msgstr "" msgid "eu_categories: git" msgstr "" +msgid "References" +msgstr "" + +#~ msgid "References:" +#~ msgstr "" + #~ msgid "" #~ "title: Browse a git repository at a specific commit\n" #~ "date: 2020-08-14\n" diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 67c4f2e..8e448d0 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -17,13 +17,6 @@ msgstr "" msgid "ref: clojure-auto-curry" msgstr "" -msgid "" -"A simple macro defined by [Loretta " -"He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " -"create Clojure functions that are curried on all arguments, relying on " -"Clojure's multi-arity support:" -msgstr "" - msgid "" "(defmacro defcurry\n" " [fname args & body]\n" @@ -90,41 +83,55 @@ msgstr "" msgid "Same Clojure as before, now with auto-currying via macros." msgstr "" -msgid "Comparison with Common Lisp" +msgid "" +"Here's a simple macro defined by [Loretta " +"He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " +"create Clojure functions that are curried on all arguments, relying on " +"Clojure's multi-arity support:" msgstr "" -msgid "My attempt at writing an equivalent for Common Lisp gives me:" -msgstr "" +#~ msgid "" +#~ "A simple macro defined by [Loretta " +#~ "He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " +#~ "create Clojure functions that are curried on all arguments, relying on " +#~ "Clojure's multi-arity support:" +#~ msgstr "" -msgid "" -"Without built-in multi-arity support, we have to do more work, like tracking" -" the number of arguments consumed so far. That is, without dependending on " -"any library, sticking to ANSI Common Lisp." -msgstr "" +#~ msgid "Comparison with Common Lisp" +#~ msgstr "" -msgid "" -"This also require `funcall`s, since we return a `lambda` that doesn't live " -"in the function namespace." -msgstr "" +#~ msgid "My attempt at writing an equivalent for Common Lisp gives me:" +#~ msgstr "" -msgid "" -"Like the Clojure one, it doesn't support optional parameters, `&rest` rest " -"arguments, docstrings, etc., but it also could evolve to do so." -msgstr "" +#~ msgid "" +#~ "Without built-in multi-arity support, we have to do more work, like tracking" +#~ " the number of arguments consumed so far. That is, without dependending on " +#~ "any library, sticking to ANSI Common Lisp." +#~ msgstr "" -msgid "" -"(defun curry-n (n fn)\n" -" (if (= 0 n)\n" -" (funcall fn)\n" -" (lambda (&rest rest)\n" -" (curry-n (something n) fn))))\n" -"\n" -"(defun add (a b c d e)\n" -" (curry-n\n" -" (length '(a b c d e))\n" -" (lambda (&rest rest)\n" -" (apply #'+ rest))))\n" -msgstr "" +#~ msgid "" +#~ "This also require `funcall`s, since we return a `lambda` that doesn't live " +#~ "in the function namespace." +#~ msgstr "" + +#~ msgid "" +#~ "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " +#~ "arguments, docstrings, etc., but it also could evolve to do so." +#~ msgstr "" + +#~ msgid "" +#~ "(defun curry-n (n fn)\n" +#~ " (if (= 0 n)\n" +#~ " (funcall fn)\n" +#~ " (lambda (&rest rest)\n" +#~ " (curry-n (something n) fn))))\n" +#~ "\n" +#~ "(defun add (a b c d e)\n" +#~ " (curry-n\n" +#~ " (length '(a b c d e))\n" +#~ " (lambda (&rest rest)\n" +#~ " (apply #'+ rest))))\n" +#~ msgstr "" #~ msgid "" #~ "(defun curry-n (n fn)\n" diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index 4ca9625..2676e93 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -184,6 +184,15 @@ msgid "" "left-to-right is just the default behaviour." msgstr "" +msgid "References" +msgstr "" + +msgid "" +"[Object-Oriented Programming in Common Lisp: A Programmer's Guide to " +"CLOS](https://en.wikipedia.org/wiki/Object-" +"Oriented_Programming_in_Common_Lisp), by Sonja E. Keene" +msgstr "" + #~ msgid "" #~ "CLOS has to make a choice between the first and the second definition of " #~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" diff --git a/locale/fr/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po b/locale/fr/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po index 421e295..6030e0c 100644 --- a/locale/fr/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po +++ b/locale/fr/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po @@ -49,9 +49,6 @@ msgid "" "current staging area back to what it was before the checkout." msgstr "" -msgid "References:" -msgstr "" - msgid "" "[GIT: Checkout to a specific folder](https://stackoverflow.com/a/16493707) " "(StackOverflow)" @@ -107,6 +104,12 @@ msgstr "" msgid "eu_categories: git" msgstr "" +msgid "References" +msgstr "" + +#~ msgid "References:" +#~ msgstr "" + #~ msgid "" #~ "title: Browse a git repository at a specific commit\n" #~ "date: 2020-08-14\n" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 67c4f2e..8e448d0 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -17,13 +17,6 @@ msgstr "" msgid "ref: clojure-auto-curry" msgstr "" -msgid "" -"A simple macro defined by [Loretta " -"He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " -"create Clojure functions that are curried on all arguments, relying on " -"Clojure's multi-arity support:" -msgstr "" - msgid "" "(defmacro defcurry\n" " [fname args & body]\n" @@ -90,41 +83,55 @@ msgstr "" msgid "Same Clojure as before, now with auto-currying via macros." msgstr "" -msgid "Comparison with Common Lisp" +msgid "" +"Here's a simple macro defined by [Loretta " +"He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " +"create Clojure functions that are curried on all arguments, relying on " +"Clojure's multi-arity support:" msgstr "" -msgid "My attempt at writing an equivalent for Common Lisp gives me:" -msgstr "" +#~ msgid "" +#~ "A simple macro defined by [Loretta " +#~ "He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " +#~ "create Clojure functions that are curried on all arguments, relying on " +#~ "Clojure's multi-arity support:" +#~ msgstr "" -msgid "" -"Without built-in multi-arity support, we have to do more work, like tracking" -" the number of arguments consumed so far. That is, without dependending on " -"any library, sticking to ANSI Common Lisp." -msgstr "" +#~ msgid "Comparison with Common Lisp" +#~ msgstr "" -msgid "" -"This also require `funcall`s, since we return a `lambda` that doesn't live " -"in the function namespace." -msgstr "" +#~ msgid "My attempt at writing an equivalent for Common Lisp gives me:" +#~ msgstr "" -msgid "" -"Like the Clojure one, it doesn't support optional parameters, `&rest` rest " -"arguments, docstrings, etc., but it also could evolve to do so." -msgstr "" +#~ msgid "" +#~ "Without built-in multi-arity support, we have to do more work, like tracking" +#~ " the number of arguments consumed so far. That is, without dependending on " +#~ "any library, sticking to ANSI Common Lisp." +#~ msgstr "" -msgid "" -"(defun curry-n (n fn)\n" -" (if (= 0 n)\n" -" (funcall fn)\n" -" (lambda (&rest rest)\n" -" (curry-n (something n) fn))))\n" -"\n" -"(defun add (a b c d e)\n" -" (curry-n\n" -" (length '(a b c d e))\n" -" (lambda (&rest rest)\n" -" (apply #'+ rest))))\n" -msgstr "" +#~ msgid "" +#~ "This also require `funcall`s, since we return a `lambda` that doesn't live " +#~ "in the function namespace." +#~ msgstr "" + +#~ msgid "" +#~ "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " +#~ "arguments, docstrings, etc., but it also could evolve to do so." +#~ msgstr "" + +#~ msgid "" +#~ "(defun curry-n (n fn)\n" +#~ " (if (= 0 n)\n" +#~ " (funcall fn)\n" +#~ " (lambda (&rest rest)\n" +#~ " (curry-n (something n) fn))))\n" +#~ "\n" +#~ "(defun add (a b c d e)\n" +#~ " (curry-n\n" +#~ " (length '(a b c d e))\n" +#~ " (lambda (&rest rest)\n" +#~ " (apply #'+ rest))))\n" +#~ msgstr "" #~ msgid "" #~ "(defun curry-n (n fn)\n" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index 4ca9625..2676e93 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -184,6 +184,15 @@ msgid "" "left-to-right is just the default behaviour." msgstr "" +msgid "References" +msgstr "" + +msgid "" +"[Object-Oriented Programming in Common Lisp: A Programmer's Guide to " +"CLOS](https://en.wikipedia.org/wiki/Object-" +"Oriented_Programming_in_Common_Lisp), by Sonja E. Keene" +msgstr "" + #~ msgid "" #~ "CLOS has to make a choice between the first and the second definition of " #~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" diff --git a/locale/pt/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po b/locale/pt/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po index 421e295..6030e0c 100644 --- a/locale/pt/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po +++ b/locale/pt/LC_MESSAGES/_tils/2020-08-14-browse-a-git-repository-at-a-specific-commit.po @@ -49,9 +49,6 @@ msgid "" "current staging area back to what it was before the checkout." msgstr "" -msgid "References:" -msgstr "" - msgid "" "[GIT: Checkout to a specific folder](https://stackoverflow.com/a/16493707) " "(StackOverflow)" @@ -107,6 +104,12 @@ msgstr "" msgid "eu_categories: git" msgstr "" +msgid "References" +msgstr "" + +#~ msgid "References:" +#~ msgstr "" + #~ msgid "" #~ "title: Browse a git repository at a specific commit\n" #~ "date: 2020-08-14\n" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 67c4f2e..8e448d0 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -17,13 +17,6 @@ msgstr "" msgid "ref: clojure-auto-curry" msgstr "" -msgid "" -"A simple macro defined by [Loretta " -"He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " -"create Clojure functions that are curried on all arguments, relying on " -"Clojure's multi-arity support:" -msgstr "" - msgid "" "(defmacro defcurry\n" " [fname args & body]\n" @@ -90,41 +83,55 @@ msgstr "" msgid "Same Clojure as before, now with auto-currying via macros." msgstr "" -msgid "Comparison with Common Lisp" +msgid "" +"Here's a simple macro defined by [Loretta " +"He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " +"create Clojure functions that are curried on all arguments, relying on " +"Clojure's multi-arity support:" msgstr "" -msgid "My attempt at writing an equivalent for Common Lisp gives me:" -msgstr "" +#~ msgid "" +#~ "A simple macro defined by [Loretta " +#~ "He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " +#~ "create Clojure functions that are curried on all arguments, relying on " +#~ "Clojure's multi-arity support:" +#~ msgstr "" -msgid "" -"Without built-in multi-arity support, we have to do more work, like tracking" -" the number of arguments consumed so far. That is, without dependending on " -"any library, sticking to ANSI Common Lisp." -msgstr "" +#~ msgid "Comparison with Common Lisp" +#~ msgstr "" -msgid "" -"This also require `funcall`s, since we return a `lambda` that doesn't live " -"in the function namespace." -msgstr "" +#~ msgid "My attempt at writing an equivalent for Common Lisp gives me:" +#~ msgstr "" -msgid "" -"Like the Clojure one, it doesn't support optional parameters, `&rest` rest " -"arguments, docstrings, etc., but it also could evolve to do so." -msgstr "" +#~ msgid "" +#~ "Without built-in multi-arity support, we have to do more work, like tracking" +#~ " the number of arguments consumed so far. That is, without dependending on " +#~ "any library, sticking to ANSI Common Lisp." +#~ msgstr "" -msgid "" -"(defun curry-n (n fn)\n" -" (if (= 0 n)\n" -" (funcall fn)\n" -" (lambda (&rest rest)\n" -" (curry-n (something n) fn))))\n" -"\n" -"(defun add (a b c d e)\n" -" (curry-n\n" -" (length '(a b c d e))\n" -" (lambda (&rest rest)\n" -" (apply #'+ rest))))\n" -msgstr "" +#~ msgid "" +#~ "This also require `funcall`s, since we return a `lambda` that doesn't live " +#~ "in the function namespace." +#~ msgstr "" + +#~ msgid "" +#~ "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " +#~ "arguments, docstrings, etc., but it also could evolve to do so." +#~ msgstr "" + +#~ msgid "" +#~ "(defun curry-n (n fn)\n" +#~ " (if (= 0 n)\n" +#~ " (funcall fn)\n" +#~ " (lambda (&rest rest)\n" +#~ " (curry-n (something n) fn))))\n" +#~ "\n" +#~ "(defun add (a b c d e)\n" +#~ " (curry-n\n" +#~ " (length '(a b c d e))\n" +#~ " (lambda (&rest rest)\n" +#~ " (apply #'+ rest))))\n" +#~ msgstr "" #~ msgid "" #~ "(defun curry-n (n fn)\n" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index 4ca9625..2676e93 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -184,6 +184,15 @@ msgid "" "left-to-right is just the default behaviour." msgstr "" +msgid "References" +msgstr "" + +msgid "" +"[Object-Oriented Programming in Common Lisp: A Programmer's Guide to " +"CLOS](https://en.wikipedia.org/wiki/Object-" +"Oriented_Programming_in_Common_Lisp), by Sonja E. Keene" +msgstr "" + #~ msgid "" #~ "CLOS has to make a choice between the first and the second definition of " #~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" -- cgit v1.2.3 From 0e6bf02503fffd89891eb37f023911ff98d022cf Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 24 Apr 2021 18:57:40 -0300 Subject: Update locale files --- .../_tils/2021-04-24-clojure-auto-curry.po | 9 ++- ...order-parameterization-of-a-generic-function.po | 9 ++- ...04-24-three-way-conditional-for-number-signs.po | 84 ++++++++++++++++++++++ .../_tils/2021-04-24-clojure-auto-curry.po | 9 ++- ...order-parameterization-of-a-generic-function.po | 9 ++- ...04-24-three-way-conditional-for-number-signs.po | 84 ++++++++++++++++++++++ .../_tils/2021-04-24-clojure-auto-curry.po | 9 ++- ...order-parameterization-of-a-generic-function.po | 9 ++- ...04-24-three-way-conditional-for-number-signs.po | 84 ++++++++++++++++++++++ 9 files changed, 288 insertions(+), 18 deletions(-) create mode 100644 locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po create mode 100644 locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po create mode 100644 locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po (limited to 'locale/pt') diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 8e448d0..14036ab 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -5,9 +5,6 @@ msgstr "" msgid "title: Clojure auto curry" msgstr "" -msgid "date: 2021-04-24" -msgstr "" - msgid "layout: post" msgstr "" @@ -90,6 +87,12 @@ msgid "" "Clojure's multi-arity support:" msgstr "" +msgid "date: 2021-04-24 1" +msgstr "" + +#~ msgid "date: 2021-04-24" +#~ msgstr "" + #~ msgid "" #~ "A simple macro defined by [Loretta " #~ "He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index 2676e93..6aa66a8 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -7,9 +7,6 @@ msgid "" "function" msgstr "" -msgid "date: 2021-04-24" -msgstr "" - msgid "layout: post" msgstr "" @@ -193,6 +190,12 @@ msgid "" "Oriented_Programming_in_Common_Lisp), by Sonja E. Keene" msgstr "" +msgid "date: 2021-04-24 2" +msgstr "" + +#~ msgid "date: 2021-04-24" +#~ msgstr "" + #~ msgid "" #~ "CLOS has to make a choice between the first and the second definition of " #~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po new file mode 100644 index 0000000..4b98383 --- /dev/null +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po @@ -0,0 +1,84 @@ +# +msgid "" +msgstr "" + +msgid "title: Three-way conditional for number signs" +msgstr "" + +msgid "date: 2021-04-24 3" +msgstr "" + +msgid "layout: post" +msgstr "" + +msgid "lang: en" +msgstr "" + +msgid "ref: three-way-conditional-for-number-signs" +msgstr "" + +msgid "" +"A useful macro from Paul Graham's [On " +"Lisp](http://www.paulgraham.com/onlisptext.html) book:" +msgstr "" + +msgid "" +"(defmacro nif (expr pos zero neg)\n" +" (let ((g (gensym)))\n" +" `(let ((,g ,expr))\n" +" (cond ((plusp ,g) ,pos)\n" +" ((zerop ,g) ,zero)\n" +" (t ,neg)))))\n" +msgstr "" + +msgid "" +"After I looked at this macro, I started seeing opportunities to using it in " +"many places, and yet I didn't see anyonelse using it." +msgstr "" + +msgid "" +"The latest example I can think of is section 1.3.3 of [Structure and " +"Interpretation of Computer " +"Programs](https://mitpress.mit.edu/sites/default/files/sicp/index.html), " +"which I was reading recently:" +msgstr "" + +msgid "" +"(define (search f neg-point pos-point)\n" +" (let ((midpoint (average neg-point pos-point)))\n" +" (if (close-enough? neg-point post-point)\n" +" midpoint\n" +" (let ((test-value (f midpoint)))\n" +" (cond ((positive? test-value)\n" +" (search f neg-point midpoint))\n" +" ((negative? test-value)\n" +" (search f midpoint pos-point))\n" +" (else midpoint))))))\n" +msgstr "" + +msgid "" +"Not that the book should introduce such macro this early, but I couldn't " +"avoid feeling bothered by not using a `nif` macro, which could even remove " +"the need for the intermediate `test-value` variable:" +msgstr "" + +msgid "" +"(define (search f neg-point pos-point)\n" +" (let ((midpoint (average neg-point pos-point)))\n" +" (if (close-enough? neg-point post-point)\n" +" midpoint\n" +" (nif (f midpoint)\n" +" (search f neg-point midpoint)\n" +" (midpoint)\n" +" (search f midpoint pos-point)))))\n" +msgstr "" + +msgid "" +"It also avoids `cond`'s extra clunky parentheses for grouping, which is " +"unnecessary but built-in." +msgstr "" + +msgid "" +"As a macro, I personally feel it tilts the balance towards expressivenes " +"despite its extra cognitive load toll." +msgstr "" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 8e448d0..14036ab 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -5,9 +5,6 @@ msgstr "" msgid "title: Clojure auto curry" msgstr "" -msgid "date: 2021-04-24" -msgstr "" - msgid "layout: post" msgstr "" @@ -90,6 +87,12 @@ msgid "" "Clojure's multi-arity support:" msgstr "" +msgid "date: 2021-04-24 1" +msgstr "" + +#~ msgid "date: 2021-04-24" +#~ msgstr "" + #~ msgid "" #~ "A simple macro defined by [Loretta " #~ "He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index 2676e93..6aa66a8 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -7,9 +7,6 @@ msgid "" "function" msgstr "" -msgid "date: 2021-04-24" -msgstr "" - msgid "layout: post" msgstr "" @@ -193,6 +190,12 @@ msgid "" "Oriented_Programming_in_Common_Lisp), by Sonja E. Keene" msgstr "" +msgid "date: 2021-04-24 2" +msgstr "" + +#~ msgid "date: 2021-04-24" +#~ msgstr "" + #~ msgid "" #~ "CLOS has to make a choice between the first and the second definition of " #~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po new file mode 100644 index 0000000..4b98383 --- /dev/null +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po @@ -0,0 +1,84 @@ +# +msgid "" +msgstr "" + +msgid "title: Three-way conditional for number signs" +msgstr "" + +msgid "date: 2021-04-24 3" +msgstr "" + +msgid "layout: post" +msgstr "" + +msgid "lang: en" +msgstr "" + +msgid "ref: three-way-conditional-for-number-signs" +msgstr "" + +msgid "" +"A useful macro from Paul Graham's [On " +"Lisp](http://www.paulgraham.com/onlisptext.html) book:" +msgstr "" + +msgid "" +"(defmacro nif (expr pos zero neg)\n" +" (let ((g (gensym)))\n" +" `(let ((,g ,expr))\n" +" (cond ((plusp ,g) ,pos)\n" +" ((zerop ,g) ,zero)\n" +" (t ,neg)))))\n" +msgstr "" + +msgid "" +"After I looked at this macro, I started seeing opportunities to using it in " +"many places, and yet I didn't see anyonelse using it." +msgstr "" + +msgid "" +"The latest example I can think of is section 1.3.3 of [Structure and " +"Interpretation of Computer " +"Programs](https://mitpress.mit.edu/sites/default/files/sicp/index.html), " +"which I was reading recently:" +msgstr "" + +msgid "" +"(define (search f neg-point pos-point)\n" +" (let ((midpoint (average neg-point pos-point)))\n" +" (if (close-enough? neg-point post-point)\n" +" midpoint\n" +" (let ((test-value (f midpoint)))\n" +" (cond ((positive? test-value)\n" +" (search f neg-point midpoint))\n" +" ((negative? test-value)\n" +" (search f midpoint pos-point))\n" +" (else midpoint))))))\n" +msgstr "" + +msgid "" +"Not that the book should introduce such macro this early, but I couldn't " +"avoid feeling bothered by not using a `nif` macro, which could even remove " +"the need for the intermediate `test-value` variable:" +msgstr "" + +msgid "" +"(define (search f neg-point pos-point)\n" +" (let ((midpoint (average neg-point pos-point)))\n" +" (if (close-enough? neg-point post-point)\n" +" midpoint\n" +" (nif (f midpoint)\n" +" (search f neg-point midpoint)\n" +" (midpoint)\n" +" (search f midpoint pos-point)))))\n" +msgstr "" + +msgid "" +"It also avoids `cond`'s extra clunky parentheses for grouping, which is " +"unnecessary but built-in." +msgstr "" + +msgid "" +"As a macro, I personally feel it tilts the balance towards expressivenes " +"despite its extra cognitive load toll." +msgstr "" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 8e448d0..14036ab 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -5,9 +5,6 @@ msgstr "" msgid "title: Clojure auto curry" msgstr "" -msgid "date: 2021-04-24" -msgstr "" - msgid "layout: post" msgstr "" @@ -90,6 +87,12 @@ msgid "" "Clojure's multi-arity support:" msgstr "" +msgid "date: 2021-04-24 1" +msgstr "" + +#~ msgid "date: 2021-04-24" +#~ msgstr "" + #~ msgid "" #~ "A simple macro defined by [Loretta " #~ "He](http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry) to " diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po index 2676e93..6aa66a8 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-common-lisp-argument-precedence-order-parameterization-of-a-generic-function.po @@ -7,9 +7,6 @@ msgid "" "function" msgstr "" -msgid "date: 2021-04-24" -msgstr "" - msgid "layout: post" msgstr "" @@ -193,6 +190,12 @@ msgid "" "Oriented_Programming_in_Common_Lisp), by Sonja E. Keene" msgstr "" +msgid "date: 2021-04-24 2" +msgstr "" + +#~ msgid "date: 2021-04-24" +#~ msgstr "" + #~ msgid "" #~ "CLOS has to make a choice between the first and the second definition of " #~ "`yet-another-fn`, but its choice is just a heuristic. What if we want to the" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po new file mode 100644 index 0000000..4b98383 --- /dev/null +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po @@ -0,0 +1,84 @@ +# +msgid "" +msgstr "" + +msgid "title: Three-way conditional for number signs" +msgstr "" + +msgid "date: 2021-04-24 3" +msgstr "" + +msgid "layout: post" +msgstr "" + +msgid "lang: en" +msgstr "" + +msgid "ref: three-way-conditional-for-number-signs" +msgstr "" + +msgid "" +"A useful macro from Paul Graham's [On " +"Lisp](http://www.paulgraham.com/onlisptext.html) book:" +msgstr "" + +msgid "" +"(defmacro nif (expr pos zero neg)\n" +" (let ((g (gensym)))\n" +" `(let ((,g ,expr))\n" +" (cond ((plusp ,g) ,pos)\n" +" ((zerop ,g) ,zero)\n" +" (t ,neg)))))\n" +msgstr "" + +msgid "" +"After I looked at this macro, I started seeing opportunities to using it in " +"many places, and yet I didn't see anyonelse using it." +msgstr "" + +msgid "" +"The latest example I can think of is section 1.3.3 of [Structure and " +"Interpretation of Computer " +"Programs](https://mitpress.mit.edu/sites/default/files/sicp/index.html), " +"which I was reading recently:" +msgstr "" + +msgid "" +"(define (search f neg-point pos-point)\n" +" (let ((midpoint (average neg-point pos-point)))\n" +" (if (close-enough? neg-point post-point)\n" +" midpoint\n" +" (let ((test-value (f midpoint)))\n" +" (cond ((positive? test-value)\n" +" (search f neg-point midpoint))\n" +" ((negative? test-value)\n" +" (search f midpoint pos-point))\n" +" (else midpoint))))))\n" +msgstr "" + +msgid "" +"Not that the book should introduce such macro this early, but I couldn't " +"avoid feeling bothered by not using a `nif` macro, which could even remove " +"the need for the intermediate `test-value` variable:" +msgstr "" + +msgid "" +"(define (search f neg-point pos-point)\n" +" (let ((midpoint (average neg-point pos-point)))\n" +" (if (close-enough? neg-point post-point)\n" +" midpoint\n" +" (nif (f midpoint)\n" +" (search f neg-point midpoint)\n" +" (midpoint)\n" +" (search f midpoint pos-point)))))\n" +msgstr "" + +msgid "" +"It also avoids `cond`'s extra clunky parentheses for grouping, which is " +"unnecessary but built-in." +msgstr "" + +msgid "" +"As a macro, I personally feel it tilts the balance towards expressivenes " +"despite its extra cognitive load toll." +msgstr "" -- cgit v1.2.3 From a8040fd10451f546705d97a2be8f3351b0bf43bb Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 24 Apr 2021 19:01:07 -0300 Subject: s/tabs/spaces/g --- TODOs.md | 16 +++--- ...library-for-stress-testing-failure-scenarios.md | 4 +- _pastebins/2021-04-03-javascript-naive-slugify.md | 34 ++++++------ aux/workflow/public.sh | 2 +- ...library-for-stress-testing-failure-scenarios.po | 57 +++++++++++++------- .../2021-04-03-javascript-naive-slugify.po | 60 ++++++++++++++++------ ...library-for-stress-testing-failure-scenarios.po | 57 +++++++++++++------- .../2021-04-03-javascript-naive-slugify.po | 60 ++++++++++++++++------ ...library-for-stress-testing-failure-scenarios.po | 57 +++++++++++++------- .../2021-04-03-javascript-naive-slugify.po | 60 ++++++++++++++++------ 10 files changed, 271 insertions(+), 136 deletions(-) (limited to 'locale/pt') diff --git a/TODOs.md b/TODOs.md index 2c94206..8eee761 100644 --- a/TODOs.md +++ b/TODOs.md @@ -79,7 +79,7 @@ Point to the source code on the Git repository. - DONE in 2021-01-03 Done in - [`bff2b07922272fd4c8f9ee0a7129d0a7c134dd38`](https://git.euandreh.xyz/website/commit/?id=bff2b07922272fd4c8f9ee0a7129d0a7c134dd38). + [`bff2b07922272fd4c8f9ee0a7129d0a7c134dd38`](https://git.euandreh.xyz/website/commit/?id=bff2b07922272fd4c8f9ee0a7129d0a7c134dd38). - TODO in 2021-01-03 --- @@ -109,7 +109,7 @@ Depending on the provider, maybe host my own, like - DONE in 2021-01-03 Done in - [`433428cf6b4ef8a653f349e0a0d1fa0d10aab1e7`](https://git.euandreh.xyz/website/commit/?id=bff2b07922272fd4c8f9ee0a7129d0a7c134dd38). + [`433428cf6b4ef8a653f349e0a0d1fa0d10aab1e7`](https://git.euandreh.xyz/website/commit/?id=bff2b07922272fd4c8f9ee0a7129d0a7c134dd38). - TODO in 2021-01-01 ## DONE Move `assert-content.sh` to Ruby {#task-a7b6b371-100c-48f4-a448-bfa39f88efce} @@ -131,7 +131,7 @@ source tree? Are torrents source files or build artifacts? - DONE in 2020-12-27 Done in - [`56da1a73ac0c211fbb14447b9175660d6757e795`](https://git.euandreh.xyz/website/commit/?id=56da1a73ac0c211fbb14447b9175660d6757e795). + [`56da1a73ac0c211fbb14447b9175660d6757e795`](https://git.euandreh.xyz/website/commit/?id=56da1a73ac0c211fbb14447b9175660d6757e795). - TODO in 2020-12-23 ## DONE Use SVG favicon {#task-29f1bded-3a56-410b-933d-e6a11f47656a} @@ -173,7 +173,7 @@ $ convert icon-48x48.png favicon.ico using WebM files. I'll keep MKV and investigate further later. See also - [`#task-9d75fe3a-b7e5-4cc5-9300-1054c7e981c0`](#task-9d75fe3a-b7e5-4cc5-9300-1054c7e981c0). + [`#task-9d75fe3a-b7e5-4cc5-9300-1054c7e981c0`](#task-9d75fe3a-b7e5-4cc5-9300-1054c7e981c0). - CANCELLED in 2020-12-28 @@ -187,16 +187,16 @@ $ convert icon-48x48.png favicon.ico - DONE in 2020-12-28 Done in - [`4d7a8207ee0931a157904cc58255d1950fa46178`](https://git.euandreh.xyz/website/commit/?id=4d7a8207ee0931a157904cc58255d1950fa46178). + [`4d7a8207ee0931a157904cc58255d1950fa46178`](https://git.euandreh.xyz/website/commit/?id=4d7a8207ee0931a157904cc58255d1950fa46178). - TODO in 2020-12-27 ## DONE Assert media files have metadata {#task-8d8a9202-97d4-4c43-b042-15fd5c95da65} - DONE in 2020-12-28 Audio done in - [`e07ff2a1928be00bb7f7eb7fc82c8447a581c58f`](https://git.euandreh.xyz/website/commit/?id=e07ff2a1928be00bb7f7eb7fc82c8447a581c58f), - and video done in - [`9bd53de5a956c34f9ef41695e878bdd4b3df1697`](https://git.euandreh.xyz/website/commit/?id=9bd53de5a956c34f9ef41695e878bdd4b3df1697). + [`e07ff2a1928be00bb7f7eb7fc82c8447a581c58f`](https://git.euandreh.xyz/website/commit/?id=e07ff2a1928be00bb7f7eb7fc82c8447a581c58f), + and video done in + [`9bd53de5a956c34f9ef41695e878bdd4b3df1697`](https://git.euandreh.xyz/website/commit/?id=9bd53de5a956c34f9ef41695e878bdd4b3df1697). - TODO in 2020-12-27 diff --git a/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.md b/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.md index 4879054..f270619 100644 --- a/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.md +++ b/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.md @@ -152,8 +152,8 @@ void *fallible_malloc(size_t size, const char *const filename, int lineno) { With this definition, I could replace the calls to `malloc` with `MALLOC` (or any other name that you want to `#define`): ```diff ---- 3.c 2021-02-17 00:15:38.019706074 -0300 -+++ 4.c 2021-02-17 00:44:32.306885590 -0300 +--- 3.c 2021-02-17 00:15:38.019706074 -0300 ++++ 4.c 2021-02-17 00:44:32.306885590 -0300 @@ -1,11 +1,11 @@ bool a_function() { - char *s1 = malloc(A_NUMBER); diff --git a/_pastebins/2021-04-03-javascript-naive-slugify.md b/_pastebins/2021-04-03-javascript-naive-slugify.md index 05251c7..ce038fd 100644 --- a/_pastebins/2021-04-03-javascript-naive-slugify.md +++ b/_pastebins/2021-04-03-javascript-naive-slugify.md @@ -16,23 +16,23 @@ ref: javascript-naive-slugify const s = "Pézão: açaí, saci-pererê."; function slugify(s) { - return s - .toLowerCase() - .replaceAll(":", "") - .replaceAll(".", "") - .replaceAll(",", "") - .replaceAll("-", "") - .replaceAll("á", "a") - .replaceAll("ã", "a") - .replaceAll("à", "a") - .replaceAll("é", "e") - .replaceAll("ê", "e") - .replaceAll("í", "i") - .replaceAll("ó", "o") - .replaceAll("ô", "o") - .replaceAll("ú", "u") - .replaceAll("ü", "u") - .replaceAll("ç", "c"); + return s + .toLowerCase() + .replaceAll(":", "") + .replaceAll(".", "") + .replaceAll(",", "") + .replaceAll("-", "") + .replaceAll("á", "a") + .replaceAll("ã", "a") + .replaceAll("à", "a") + .replaceAll("é", "e") + .replaceAll("ê", "e") + .replaceAll("í", "i") + .replaceAll("ó", "o") + .replaceAll("ô", "o") + .replaceAll("ú", "u") + .replaceAll("ü", "u") + .replaceAll("ç", "c"); } console.log(slugify(s)); diff --git a/aux/workflow/public.sh b/aux/workflow/public.sh index 4c90225..d7df96b 100755 --- a/aux/workflow/public.sh +++ b/aux/workflow/public.sh @@ -9,7 +9,7 @@ sh aux/workflow/TODOs.sh "$PROJECT_UC" "$PROJECT" "$MAILING_LIST" sh aux/workflow/README.sh "$PROJECT_UC" "$PROJECT" "$MAILING_LIST" if [ -f CHANGELOG.md ]; then - sh aux/workflow/commonmark.sh "$PROJECT" CHANGELOG.md + sh aux/workflow/commonmark.sh "$PROJECT" CHANGELOG.md fi sh aux/ci/report.sh "$PROJECT" diff --git a/locale/eo/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po b/locale/eo/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po index 442e6d0..e30c889 100644 --- a/locale/eo/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po +++ b/locale/eo/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po @@ -240,25 +240,6 @@ msgid "" "(or any other name that you want to `#define`):" msgstr "" -msgid "" -"--- 3.c\t2021-02-17 00:15:38.019706074 -0300\n" -"+++ 4.c\t2021-02-17 00:44:32.306885590 -0300\n" -"@@ -1,11 +1,11 @@\n" -" bool a_function() {\n" -"- char *s1 = malloc(A_NUMBER);\n" -"+ char *s1 = MALLOC(A_NUMBER);\n" -" if (!s1) {\n" -" return false;\n" -" }\n" -" strcpy(s1, \"some string\");\n" -"\n" -"- char *s2 = malloc(A_NUMBER);\n" -"+ char *s2 = MALLOC(A_NUMBER);\n" -" if (!s2) {\n" -" free(s1);\n" -" return false;\n" -msgstr "" - msgid "" "With this change, if the program gets compiled with the `-DFALLIBLE` flag " "the fault-injection mechanism will run, and `MALLOC` will fail once for each" @@ -342,3 +323,41 @@ msgstr "" msgid "Patches welcome!" msgstr "" + +msgid "" +"--- 3.c 2021-02-17 00:15:38.019706074 -0300\n" +"+++ 4.c 2021-02-17 00:44:32.306885590 -0300\n" +"@@ -1,11 +1,11 @@\n" +" bool a_function() {\n" +"- char *s1 = malloc(A_NUMBER);\n" +"+ char *s1 = MALLOC(A_NUMBER);\n" +" if (!s1) {\n" +" return false;\n" +" }\n" +" strcpy(s1, \"some string\");\n" +"\n" +"- char *s2 = malloc(A_NUMBER);\n" +"+ char *s2 = MALLOC(A_NUMBER);\n" +" if (!s2) {\n" +" free(s1);\n" +" return false;\n" +msgstr "" + +#~ msgid "" +#~ "--- 3.c\t2021-02-17 00:15:38.019706074 -0300\n" +#~ "+++ 4.c\t2021-02-17 00:44:32.306885590 -0300\n" +#~ "@@ -1,11 +1,11 @@\n" +#~ " bool a_function() {\n" +#~ "- char *s1 = malloc(A_NUMBER);\n" +#~ "+ char *s1 = MALLOC(A_NUMBER);\n" +#~ " if (!s1) {\n" +#~ " return false;\n" +#~ " }\n" +#~ " strcpy(s1, \"some string\");\n" +#~ "\n" +#~ "- char *s2 = malloc(A_NUMBER);\n" +#~ "+ char *s2 = MALLOC(A_NUMBER);\n" +#~ " if (!s2) {\n" +#~ " free(s1);\n" +#~ " return false;\n" +#~ msgstr "" diff --git a/locale/eo/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po b/locale/eo/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po index 6f638f2..f6e087b 100644 --- a/locale/eo/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po +++ b/locale/eo/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po @@ -21,24 +21,50 @@ msgid "" "const s = \"Pézão: açaí, saci-pererê.\";\n" "\n" "function slugify(s) {\n" -" return s\n" -" .toLowerCase()\n" -" .replaceAll(\":\", \"\")\n" -" .replaceAll(\".\", \"\")\n" -" .replaceAll(\",\", \"\")\n" -" .replaceAll(\"-\", \"\")\n" -" .replaceAll(\"á\", \"a\")\n" -" .replaceAll(\"ã\", \"a\")\n" -" .replaceAll(\"à\", \"a\")\n" -" .replaceAll(\"é\", \"e\")\n" -" .replaceAll(\"ê\", \"e\")\n" -" .replaceAll(\"í\", \"i\")\n" -" .replaceAll(\"ó\", \"o\")\n" -" .replaceAll(\"ô\", \"o\")\n" -" .replaceAll(\"ú\", \"u\")\n" -" .replaceAll(\"ü\", \"u\")\n" -" .replaceAll(\"ç\", \"c\");\n" +" return s\n" +" .toLowerCase()\n" +" .replaceAll(\":\", \"\")\n" +" .replaceAll(\".\", \"\")\n" +" .replaceAll(\",\", \"\")\n" +" .replaceAll(\"-\", \"\")\n" +" .replaceAll(\"á\", \"a\")\n" +" .replaceAll(\"ã\", \"a\")\n" +" .replaceAll(\"à\", \"a\")\n" +" .replaceAll(\"é\", \"e\")\n" +" .replaceAll(\"ê\", \"e\")\n" +" .replaceAll(\"í\", \"i\")\n" +" .replaceAll(\"ó\", \"o\")\n" +" .replaceAll(\"ô\", \"o\")\n" +" .replaceAll(\"ú\", \"u\")\n" +" .replaceAll(\"ü\", \"u\")\n" +" .replaceAll(\"ç\", \"c\");\n" "}\n" "\n" "console.log(slugify(s));\n" msgstr "" + +#~ msgid "" +#~ "const s = \"Pézão: açaí, saci-pererê.\";\n" +#~ "\n" +#~ "function slugify(s) {\n" +#~ " return s\n" +#~ " .toLowerCase()\n" +#~ " .replaceAll(\":\", \"\")\n" +#~ " .replaceAll(\".\", \"\")\n" +#~ " .replaceAll(\",\", \"\")\n" +#~ " .replaceAll(\"-\", \"\")\n" +#~ " .replaceAll(\"á\", \"a\")\n" +#~ " .replaceAll(\"ã\", \"a\")\n" +#~ " .replaceAll(\"à\", \"a\")\n" +#~ " .replaceAll(\"é\", \"e\")\n" +#~ " .replaceAll(\"ê\", \"e\")\n" +#~ " .replaceAll(\"í\", \"i\")\n" +#~ " .replaceAll(\"ó\", \"o\")\n" +#~ " .replaceAll(\"ô\", \"o\")\n" +#~ " .replaceAll(\"ú\", \"u\")\n" +#~ " .replaceAll(\"ü\", \"u\")\n" +#~ " .replaceAll(\"ç\", \"c\");\n" +#~ "}\n" +#~ "\n" +#~ "console.log(slugify(s));\n" +#~ msgstr "" diff --git a/locale/fr/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po b/locale/fr/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po index 442e6d0..e30c889 100644 --- a/locale/fr/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po +++ b/locale/fr/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po @@ -240,25 +240,6 @@ msgid "" "(or any other name that you want to `#define`):" msgstr "" -msgid "" -"--- 3.c\t2021-02-17 00:15:38.019706074 -0300\n" -"+++ 4.c\t2021-02-17 00:44:32.306885590 -0300\n" -"@@ -1,11 +1,11 @@\n" -" bool a_function() {\n" -"- char *s1 = malloc(A_NUMBER);\n" -"+ char *s1 = MALLOC(A_NUMBER);\n" -" if (!s1) {\n" -" return false;\n" -" }\n" -" strcpy(s1, \"some string\");\n" -"\n" -"- char *s2 = malloc(A_NUMBER);\n" -"+ char *s2 = MALLOC(A_NUMBER);\n" -" if (!s2) {\n" -" free(s1);\n" -" return false;\n" -msgstr "" - msgid "" "With this change, if the program gets compiled with the `-DFALLIBLE` flag " "the fault-injection mechanism will run, and `MALLOC` will fail once for each" @@ -342,3 +323,41 @@ msgstr "" msgid "Patches welcome!" msgstr "" + +msgid "" +"--- 3.c 2021-02-17 00:15:38.019706074 -0300\n" +"+++ 4.c 2021-02-17 00:44:32.306885590 -0300\n" +"@@ -1,11 +1,11 @@\n" +" bool a_function() {\n" +"- char *s1 = malloc(A_NUMBER);\n" +"+ char *s1 = MALLOC(A_NUMBER);\n" +" if (!s1) {\n" +" return false;\n" +" }\n" +" strcpy(s1, \"some string\");\n" +"\n" +"- char *s2 = malloc(A_NUMBER);\n" +"+ char *s2 = MALLOC(A_NUMBER);\n" +" if (!s2) {\n" +" free(s1);\n" +" return false;\n" +msgstr "" + +#~ msgid "" +#~ "--- 3.c\t2021-02-17 00:15:38.019706074 -0300\n" +#~ "+++ 4.c\t2021-02-17 00:44:32.306885590 -0300\n" +#~ "@@ -1,11 +1,11 @@\n" +#~ " bool a_function() {\n" +#~ "- char *s1 = malloc(A_NUMBER);\n" +#~ "+ char *s1 = MALLOC(A_NUMBER);\n" +#~ " if (!s1) {\n" +#~ " return false;\n" +#~ " }\n" +#~ " strcpy(s1, \"some string\");\n" +#~ "\n" +#~ "- char *s2 = malloc(A_NUMBER);\n" +#~ "+ char *s2 = MALLOC(A_NUMBER);\n" +#~ " if (!s2) {\n" +#~ " free(s1);\n" +#~ " return false;\n" +#~ msgstr "" diff --git a/locale/fr/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po b/locale/fr/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po index 6f638f2..f6e087b 100644 --- a/locale/fr/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po +++ b/locale/fr/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po @@ -21,24 +21,50 @@ msgid "" "const s = \"Pézão: açaí, saci-pererê.\";\n" "\n" "function slugify(s) {\n" -" return s\n" -" .toLowerCase()\n" -" .replaceAll(\":\", \"\")\n" -" .replaceAll(\".\", \"\")\n" -" .replaceAll(\",\", \"\")\n" -" .replaceAll(\"-\", \"\")\n" -" .replaceAll(\"á\", \"a\")\n" -" .replaceAll(\"ã\", \"a\")\n" -" .replaceAll(\"à\", \"a\")\n" -" .replaceAll(\"é\", \"e\")\n" -" .replaceAll(\"ê\", \"e\")\n" -" .replaceAll(\"í\", \"i\")\n" -" .replaceAll(\"ó\", \"o\")\n" -" .replaceAll(\"ô\", \"o\")\n" -" .replaceAll(\"ú\", \"u\")\n" -" .replaceAll(\"ü\", \"u\")\n" -" .replaceAll(\"ç\", \"c\");\n" +" return s\n" +" .toLowerCase()\n" +" .replaceAll(\":\", \"\")\n" +" .replaceAll(\".\", \"\")\n" +" .replaceAll(\",\", \"\")\n" +" .replaceAll(\"-\", \"\")\n" +" .replaceAll(\"á\", \"a\")\n" +" .replaceAll(\"ã\", \"a\")\n" +" .replaceAll(\"à\", \"a\")\n" +" .replaceAll(\"é\", \"e\")\n" +" .replaceAll(\"ê\", \"e\")\n" +" .replaceAll(\"í\", \"i\")\n" +" .replaceAll(\"ó\", \"o\")\n" +" .replaceAll(\"ô\", \"o\")\n" +" .replaceAll(\"ú\", \"u\")\n" +" .replaceAll(\"ü\", \"u\")\n" +" .replaceAll(\"ç\", \"c\");\n" "}\n" "\n" "console.log(slugify(s));\n" msgstr "" + +#~ msgid "" +#~ "const s = \"Pézão: açaí, saci-pererê.\";\n" +#~ "\n" +#~ "function slugify(s) {\n" +#~ " return s\n" +#~ " .toLowerCase()\n" +#~ " .replaceAll(\":\", \"\")\n" +#~ " .replaceAll(\".\", \"\")\n" +#~ " .replaceAll(\",\", \"\")\n" +#~ " .replaceAll(\"-\", \"\")\n" +#~ " .replaceAll(\"á\", \"a\")\n" +#~ " .replaceAll(\"ã\", \"a\")\n" +#~ " .replaceAll(\"à\", \"a\")\n" +#~ " .replaceAll(\"é\", \"e\")\n" +#~ " .replaceAll(\"ê\", \"e\")\n" +#~ " .replaceAll(\"í\", \"i\")\n" +#~ " .replaceAll(\"ó\", \"o\")\n" +#~ " .replaceAll(\"ô\", \"o\")\n" +#~ " .replaceAll(\"ú\", \"u\")\n" +#~ " .replaceAll(\"ü\", \"u\")\n" +#~ " .replaceAll(\"ç\", \"c\");\n" +#~ "}\n" +#~ "\n" +#~ "console.log(slugify(s));\n" +#~ msgstr "" diff --git a/locale/pt/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po b/locale/pt/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po index 442e6d0..e30c889 100644 --- a/locale/pt/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po +++ b/locale/pt/LC_MESSAGES/_articles/2021-02-17-ann-fallible-fault-injection-library-for-stress-testing-failure-scenarios.po @@ -240,25 +240,6 @@ msgid "" "(or any other name that you want to `#define`):" msgstr "" -msgid "" -"--- 3.c\t2021-02-17 00:15:38.019706074 -0300\n" -"+++ 4.c\t2021-02-17 00:44:32.306885590 -0300\n" -"@@ -1,11 +1,11 @@\n" -" bool a_function() {\n" -"- char *s1 = malloc(A_NUMBER);\n" -"+ char *s1 = MALLOC(A_NUMBER);\n" -" if (!s1) {\n" -" return false;\n" -" }\n" -" strcpy(s1, \"some string\");\n" -"\n" -"- char *s2 = malloc(A_NUMBER);\n" -"+ char *s2 = MALLOC(A_NUMBER);\n" -" if (!s2) {\n" -" free(s1);\n" -" return false;\n" -msgstr "" - msgid "" "With this change, if the program gets compiled with the `-DFALLIBLE` flag " "the fault-injection mechanism will run, and `MALLOC` will fail once for each" @@ -342,3 +323,41 @@ msgstr "" msgid "Patches welcome!" msgstr "" + +msgid "" +"--- 3.c 2021-02-17 00:15:38.019706074 -0300\n" +"+++ 4.c 2021-02-17 00:44:32.306885590 -0300\n" +"@@ -1,11 +1,11 @@\n" +" bool a_function() {\n" +"- char *s1 = malloc(A_NUMBER);\n" +"+ char *s1 = MALLOC(A_NUMBER);\n" +" if (!s1) {\n" +" return false;\n" +" }\n" +" strcpy(s1, \"some string\");\n" +"\n" +"- char *s2 = malloc(A_NUMBER);\n" +"+ char *s2 = MALLOC(A_NUMBER);\n" +" if (!s2) {\n" +" free(s1);\n" +" return false;\n" +msgstr "" + +#~ msgid "" +#~ "--- 3.c\t2021-02-17 00:15:38.019706074 -0300\n" +#~ "+++ 4.c\t2021-02-17 00:44:32.306885590 -0300\n" +#~ "@@ -1,11 +1,11 @@\n" +#~ " bool a_function() {\n" +#~ "- char *s1 = malloc(A_NUMBER);\n" +#~ "+ char *s1 = MALLOC(A_NUMBER);\n" +#~ " if (!s1) {\n" +#~ " return false;\n" +#~ " }\n" +#~ " strcpy(s1, \"some string\");\n" +#~ "\n" +#~ "- char *s2 = malloc(A_NUMBER);\n" +#~ "+ char *s2 = MALLOC(A_NUMBER);\n" +#~ " if (!s2) {\n" +#~ " free(s1);\n" +#~ " return false;\n" +#~ msgstr "" diff --git a/locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po b/locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po index 6f638f2..f6e087b 100644 --- a/locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po +++ b/locale/pt/LC_MESSAGES/_pastebins/2021-04-03-javascript-naive-slugify.po @@ -21,24 +21,50 @@ msgid "" "const s = \"Pézão: açaí, saci-pererê.\";\n" "\n" "function slugify(s) {\n" -" return s\n" -" .toLowerCase()\n" -" .replaceAll(\":\", \"\")\n" -" .replaceAll(\".\", \"\")\n" -" .replaceAll(\",\", \"\")\n" -" .replaceAll(\"-\", \"\")\n" -" .replaceAll(\"á\", \"a\")\n" -" .replaceAll(\"ã\", \"a\")\n" -" .replaceAll(\"à\", \"a\")\n" -" .replaceAll(\"é\", \"e\")\n" -" .replaceAll(\"ê\", \"e\")\n" -" .replaceAll(\"í\", \"i\")\n" -" .replaceAll(\"ó\", \"o\")\n" -" .replaceAll(\"ô\", \"o\")\n" -" .replaceAll(\"ú\", \"u\")\n" -" .replaceAll(\"ü\", \"u\")\n" -" .replaceAll(\"ç\", \"c\");\n" +" return s\n" +" .toLowerCase()\n" +" .replaceAll(\":\", \"\")\n" +" .replaceAll(\".\", \"\")\n" +" .replaceAll(\",\", \"\")\n" +" .replaceAll(\"-\", \"\")\n" +" .replaceAll(\"á\", \"a\")\n" +" .replaceAll(\"ã\", \"a\")\n" +" .replaceAll(\"à\", \"a\")\n" +" .replaceAll(\"é\", \"e\")\n" +" .replaceAll(\"ê\", \"e\")\n" +" .replaceAll(\"í\", \"i\")\n" +" .replaceAll(\"ó\", \"o\")\n" +" .replaceAll(\"ô\", \"o\")\n" +" .replaceAll(\"ú\", \"u\")\n" +" .replaceAll(\"ü\", \"u\")\n" +" .replaceAll(\"ç\", \"c\");\n" "}\n" "\n" "console.log(slugify(s));\n" msgstr "" + +#~ msgid "" +#~ "const s = \"Pézão: açaí, saci-pererê.\";\n" +#~ "\n" +#~ "function slugify(s) {\n" +#~ " return s\n" +#~ " .toLowerCase()\n" +#~ " .replaceAll(\":\", \"\")\n" +#~ " .replaceAll(\".\", \"\")\n" +#~ " .replaceAll(\",\", \"\")\n" +#~ " .replaceAll(\"-\", \"\")\n" +#~ " .replaceAll(\"á\", \"a\")\n" +#~ " .replaceAll(\"ã\", \"a\")\n" +#~ " .replaceAll(\"à\", \"a\")\n" +#~ " .replaceAll(\"é\", \"e\")\n" +#~ " .replaceAll(\"ê\", \"e\")\n" +#~ " .replaceAll(\"í\", \"i\")\n" +#~ " .replaceAll(\"ó\", \"o\")\n" +#~ " .replaceAll(\"ô\", \"o\")\n" +#~ " .replaceAll(\"ú\", \"u\")\n" +#~ " .replaceAll(\"ü\", \"u\")\n" +#~ " .replaceAll(\"ç\", \"c\");\n" +#~ "}\n" +#~ "\n" +#~ "console.log(slugify(s));\n" +#~ msgstr "" -- cgit v1.2.3 From 128509ccbf0b280a38636b75ba001808b9ad250f Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 24 Apr 2021 19:08:45 -0300 Subject: Proofread TIL on nif macro --- ...04-24-three-way-conditional-for-number-signs.md | 4 +-- ...04-24-three-way-conditional-for-number-signs.po | 33 ++++++++++++++-------- ...04-24-three-way-conditional-for-number-signs.po | 33 ++++++++++++++-------- ...04-24-three-way-conditional-for-number-signs.po | 33 ++++++++++++++-------- 4 files changed, 68 insertions(+), 35 deletions(-) (limited to 'locale/pt') diff --git a/_tils/2021-04-24-three-way-conditional-for-number-signs.md b/_tils/2021-04-24-three-way-conditional-for-number-signs.md index 4a55b61..ec62378 100644 --- a/_tils/2021-04-24-three-way-conditional-for-number-signs.md +++ b/_tils/2021-04-24-three-way-conditional-for-number-signs.md @@ -23,7 +23,7 @@ A useful macro from Paul Graham's [On Lisp][on-lisp] book: (t ,neg))))) ``` -After I looked at this macro, I started seeing opportunities to using it in many places, and yet I didn't see anyonelse using it. +After I looked at this macro, I started seeing opportunities to using it in many places, and yet I didn't see anyone else using it. The latest example I can think of is section 1.3.3 of [Structure and Interpretation of Computer Programs][sicp], which I was reading recently: @@ -40,7 +40,7 @@ The latest example I can think of is section 1.3.3 of [Structure and Interpretat (else midpoint)))))) ``` -Not that the book should introduce such macro this early, but I couldn't avoid feeling bothered by not using a `nif` macro, which could even remove the need for the intermediate `test-value` variable: +Not that the book should introduce such macro this early, but I couldn't avoid feeling bothered by not using the `nif` macro, which could even remove the need for the intermediate `test-value` variable: ```scheme (define (search f neg-point pos-point) diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po index 4b98383..925a00b 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po @@ -31,11 +31,6 @@ msgid "" " (t ,neg)))))\n" msgstr "" -msgid "" -"After I looked at this macro, I started seeing opportunities to using it in " -"many places, and yet I didn't see anyonelse using it." -msgstr "" - msgid "" "The latest example I can think of is section 1.3.3 of [Structure and " "Interpretation of Computer " @@ -56,12 +51,6 @@ msgid "" " (else midpoint))))))\n" msgstr "" -msgid "" -"Not that the book should introduce such macro this early, but I couldn't " -"avoid feeling bothered by not using a `nif` macro, which could even remove " -"the need for the intermediate `test-value` variable:" -msgstr "" - msgid "" "(define (search f neg-point pos-point)\n" " (let ((midpoint (average neg-point pos-point)))\n" @@ -82,3 +71,25 @@ msgid "" "As a macro, I personally feel it tilts the balance towards expressivenes " "despite its extra cognitive load toll." msgstr "" + +msgid "" +"After I looked at this macro, I started seeing opportunities to using it in " +"many places, and yet I didn't see anyone else using it." +msgstr "" + +msgid "" +"Not that the book should introduce such macro this early, but I couldn't " +"avoid feeling bothered by not using the `nif` macro, which could even remove" +" the need for the intermediate `test-value` variable:" +msgstr "" + +#~ msgid "" +#~ "After I looked at this macro, I started seeing opportunities to using it in " +#~ "many places, and yet I didn't see anyonelse using it." +#~ msgstr "" + +#~ msgid "" +#~ "Not that the book should introduce such macro this early, but I couldn't " +#~ "avoid feeling bothered by not using a `nif` macro, which could even remove " +#~ "the need for the intermediate `test-value` variable:" +#~ msgstr "" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po index 4b98383..925a00b 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po @@ -31,11 +31,6 @@ msgid "" " (t ,neg)))))\n" msgstr "" -msgid "" -"After I looked at this macro, I started seeing opportunities to using it in " -"many places, and yet I didn't see anyonelse using it." -msgstr "" - msgid "" "The latest example I can think of is section 1.3.3 of [Structure and " "Interpretation of Computer " @@ -56,12 +51,6 @@ msgid "" " (else midpoint))))))\n" msgstr "" -msgid "" -"Not that the book should introduce such macro this early, but I couldn't " -"avoid feeling bothered by not using a `nif` macro, which could even remove " -"the need for the intermediate `test-value` variable:" -msgstr "" - msgid "" "(define (search f neg-point pos-point)\n" " (let ((midpoint (average neg-point pos-point)))\n" @@ -82,3 +71,25 @@ msgid "" "As a macro, I personally feel it tilts the balance towards expressivenes " "despite its extra cognitive load toll." msgstr "" + +msgid "" +"After I looked at this macro, I started seeing opportunities to using it in " +"many places, and yet I didn't see anyone else using it." +msgstr "" + +msgid "" +"Not that the book should introduce such macro this early, but I couldn't " +"avoid feeling bothered by not using the `nif` macro, which could even remove" +" the need for the intermediate `test-value` variable:" +msgstr "" + +#~ msgid "" +#~ "After I looked at this macro, I started seeing opportunities to using it in " +#~ "many places, and yet I didn't see anyonelse using it." +#~ msgstr "" + +#~ msgid "" +#~ "Not that the book should introduce such macro this early, but I couldn't " +#~ "avoid feeling bothered by not using a `nif` macro, which could even remove " +#~ "the need for the intermediate `test-value` variable:" +#~ msgstr "" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po index 4b98383..925a00b 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-three-way-conditional-for-number-signs.po @@ -31,11 +31,6 @@ msgid "" " (t ,neg)))))\n" msgstr "" -msgid "" -"After I looked at this macro, I started seeing opportunities to using it in " -"many places, and yet I didn't see anyonelse using it." -msgstr "" - msgid "" "The latest example I can think of is section 1.3.3 of [Structure and " "Interpretation of Computer " @@ -56,12 +51,6 @@ msgid "" " (else midpoint))))))\n" msgstr "" -msgid "" -"Not that the book should introduce such macro this early, but I couldn't " -"avoid feeling bothered by not using a `nif` macro, which could even remove " -"the need for the intermediate `test-value` variable:" -msgstr "" - msgid "" "(define (search f neg-point pos-point)\n" " (let ((midpoint (average neg-point pos-point)))\n" @@ -82,3 +71,25 @@ msgid "" "As a macro, I personally feel it tilts the balance towards expressivenes " "despite its extra cognitive load toll." msgstr "" + +msgid "" +"After I looked at this macro, I started seeing opportunities to using it in " +"many places, and yet I didn't see anyone else using it." +msgstr "" + +msgid "" +"Not that the book should introduce such macro this early, but I couldn't " +"avoid feeling bothered by not using the `nif` macro, which could even remove" +" the need for the intermediate `test-value` variable:" +msgstr "" + +#~ msgid "" +#~ "After I looked at this macro, I started seeing opportunities to using it in " +#~ "many places, and yet I didn't see anyonelse using it." +#~ msgstr "" + +#~ msgid "" +#~ "Not that the book should introduce such macro this early, but I couldn't " +#~ "avoid feeling bothered by not using a `nif` macro, which could even remove " +#~ "the need for the intermediate `test-value` variable:" +#~ msgstr "" -- cgit v1.2.3 From c86b5f9555d284c254d85c4f4eacb2560d9adfd1 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Tue, 27 Apr 2021 04:45:16 -0300 Subject: Expand TIL on Clojure auto-curry to include Common Lisp version --- _tils/2021-04-24-clojure-auto-curry.md | 67 ++++++++++- .../_tils/2021-04-24-clojure-auto-curry.po | 123 ++++++++++++++++----- .../_tils/2021-04-24-clojure-auto-curry.po | 123 ++++++++++++++++----- .../_tils/2021-04-24-clojure-auto-curry.po | 123 ++++++++++++++++----- 4 files changed, 352 insertions(+), 84 deletions(-) (limited to 'locale/pt') diff --git a/_tils/2021-04-24-clojure-auto-curry.md b/_tils/2021-04-24-clojure-auto-curry.md index 0d50cfa..c1e277f 100644 --- a/_tils/2021-04-24-clojure-auto-curry.md +++ b/_tils/2021-04-24-clojure-auto-curry.md @@ -4,6 +4,8 @@ title: Clojure auto curry date: 2021-04-24 1 +updated_at: 2021-04-27 + layout: post lang: en @@ -16,11 +18,11 @@ Here's a simple macro defined by [Loretta He][lorettahe] to create Clojure funct ```clojure (defmacro defcurry - [fname args & body] + [name args & body] (let [partials (map (fn [n] - `(~(subvec args 0 n) (partial ~fname ~@(take n args)))) + `(~(subvec args 0 n) (partial ~name ~@(take n args)))) (range 1 (count args)))] - `(defn ~fname + `(defn ~name (~args ~@body) ~@partials))) ``` @@ -72,3 +74,62 @@ Simple and elegant. Same Clojure as before, now with auto-currying via macros. [lorettahe]: http://lorettahe.github.io/clojure/2016/09/22/clojure-auto-curry + +## Comparison with Common Lisp + +My attempt at writing an equivalent for Common Lisp gives me: + +```lisp +(defun partial (fn &rest args) + (lambda (&rest args2) + (apply fn (append args args2)))) + +(defun curry-n (n func) + (cond ((< n 0) (error "Too many arguments")) + ((zerop n) (funcall func)) + (t (lambda (&rest rest) + (curry-n (- n (length rest)) + (apply #'partial func rest)))))) + +(defmacro defcurry (name args &body body) + `(defun ,name (&rest rest) + (let ((func (lambda ,args ,@body))) + (curry-n (- ,(length args) (length rest)) + (apply #'partial func rest))))) +``` + +Without built-in multi-arity support, we have to do more work, like tracking the number of arguments consumed so far. +We also have to write `#'partial` ourselves. +That is, without dependending on any library, sticking to ANSI Common Lisp. + +The usage is pretty similar: + +```lisp +* (defcurry add (a b c d e) + (+ a b c d e)) +ADD + +* (add 1) +# + +* (funcall (add 1) 2 3 4) +# + +* (funcall (add 1) 2 3 4 5) +15 + +* (funcall (funcall (add 1) 2 3) 4 5) +15 + +* (macroexpand-1 + '(defcurry add (a b c d e) + (+ a b c d e))) +(DEFUN ADD (&REST REST) + (LET ((FUNC (LAMBDA (A B C D E) (+ A B C D E)))) + (CURRY-N (- 5 (LENGTH REST)) (APPLY #'PARTIAL FUNC REST)))) +T +``` + +This also require `funcall`s, since we return a `lambda` that doesn't live in the function namespace. + +Like the Clojure one, it doesn't support optional parameters, `&rest` rest arguments, docstrings, etc., but it also could evolve to do so. diff --git a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 14036ab..ab59a4f 100644 --- a/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/eo/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -14,17 +14,6 @@ msgstr "" msgid "ref: clojure-auto-curry" msgstr "" -msgid "" -"(defmacro defcurry\n" -" [fname args & body]\n" -" (let [partials (map (fn [n]\n" -" `(~(subvec args 0 n) (partial ~fname ~@(take n args))))\n" -" (range 1 (count args)))]\n" -" `(defn ~fname\n" -" (~args ~@body)\n" -" ~@partials)))\n" -msgstr "" - msgid "A naive `add` definition, alongside its usage and macroexpansion:" msgstr "" @@ -90,6 +79,102 @@ msgstr "" msgid "date: 2021-04-24 1" msgstr "" +msgid "" +"(defmacro defcurry\n" +" [name args & body]\n" +" (let [partials (map (fn [n]\n" +" `(~(subvec args 0 n) (partial ~name ~@(take n args))))\n" +" (range 1 (count args)))]\n" +" `(defn ~name\n" +" (~args ~@body)\n" +" ~@partials)))\n" +msgstr "" + +msgid "Comparison with Common Lisp" +msgstr "" + +msgid "My attempt at writing an equivalent for Common Lisp gives me:" +msgstr "" + +msgid "" +"(defun partial (fn &rest args)\n" +" (lambda (&rest args2)\n" +" (apply fn (append args args2))))\n" +"\n" +"(defun curry-n (n func)\n" +" (cond ((< n 0) (error \"Too many arguments\"))\n" +" ((zerop n) (funcall func))\n" +" (t (lambda (&rest rest)\n" +" (curry-n (- n (length rest))\n" +" (apply #'partial func rest))))))\n" +"\n" +"(defmacro defcurry (name args &body body)\n" +" `(defun ,name (&rest rest)\n" +" (let ((func (lambda ,args ,@body)))\n" +" (curry-n (- ,(length args) (length rest))\n" +" (apply #'partial func rest)))))\n" +msgstr "" + +msgid "" +"Without built-in multi-arity support, we have to do more work, like tracking" +" the number of arguments consumed so far. We also have to write `#'partial` " +"ourselves. That is, without dependending on any library, sticking to ANSI " +"Common Lisp." +msgstr "" + +msgid "The usage is pretty similar:" +msgstr "" + +msgid "" +"* (defcurry add (a b c d e)\n" +" (+ a b c d e))\n" +"ADD\n" +"\n" +"* (add 1)\n" +"#\n" +"\n" +"* (funcall (add 1) 2 3 4)\n" +"#\n" +"\n" +"* (funcall (add 1) 2 3 4 5)\n" +"15\n" +"\n" +"* (funcall (funcall (add 1) 2 3) 4 5)\n" +"15\n" +"\n" +"* (macroexpand-1\n" +" '(defcurry add (a b c d e)\n" +" (+ a b c d e)))\n" +"(DEFUN ADD (&REST REST)\n" +" (LET ((FUNC (LAMBDA (A B C D E) (+ A B C D E))))\n" +" (CURRY-N (- 5 (LENGTH REST)) (APPLY #'PARTIAL FUNC REST))))\n" +"T\n" +msgstr "" + +msgid "" +"This also require `funcall`s, since we return a `lambda` that doesn't live " +"in the function namespace." +msgstr "" + +msgid "" +"Like the Clojure one, it doesn't support optional parameters, `&rest` rest " +"arguments, docstrings, etc., but it also could evolve to do so." +msgstr "" + +msgid "updated_at: 2021-04-27" +msgstr "" + +#~ msgid "" +#~ "(defmacro defcurry\n" +#~ " [fname args & body]\n" +#~ " (let [partials (map (fn [n]\n" +#~ " `(~(subvec args 0 n) (partial ~fname ~@(take n args))))\n" +#~ " (range 1 (count args)))]\n" +#~ " `(defn ~fname\n" +#~ " (~args ~@body)\n" +#~ " ~@partials)))\n" +#~ msgstr "" + #~ msgid "date: 2021-04-24" #~ msgstr "" @@ -100,28 +185,12 @@ msgstr "" #~ "Clojure's multi-arity support:" #~ msgstr "" -#~ msgid "Comparison with Common Lisp" -#~ msgstr "" - -#~ msgid "My attempt at writing an equivalent for Common Lisp gives me:" -#~ msgstr "" - #~ msgid "" #~ "Without built-in multi-arity support, we have to do more work, like tracking" #~ " the number of arguments consumed so far. That is, without dependending on " #~ "any library, sticking to ANSI Common Lisp." #~ msgstr "" -#~ msgid "" -#~ "This also require `funcall`s, since we return a `lambda` that doesn't live " -#~ "in the function namespace." -#~ msgstr "" - -#~ msgid "" -#~ "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " -#~ "arguments, docstrings, etc., but it also could evolve to do so." -#~ msgstr "" - #~ msgid "" #~ "(defun curry-n (n fn)\n" #~ " (if (= 0 n)\n" diff --git a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 14036ab..ab59a4f 100644 --- a/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/fr/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -14,17 +14,6 @@ msgstr "" msgid "ref: clojure-auto-curry" msgstr "" -msgid "" -"(defmacro defcurry\n" -" [fname args & body]\n" -" (let [partials (map (fn [n]\n" -" `(~(subvec args 0 n) (partial ~fname ~@(take n args))))\n" -" (range 1 (count args)))]\n" -" `(defn ~fname\n" -" (~args ~@body)\n" -" ~@partials)))\n" -msgstr "" - msgid "A naive `add` definition, alongside its usage and macroexpansion:" msgstr "" @@ -90,6 +79,102 @@ msgstr "" msgid "date: 2021-04-24 1" msgstr "" +msgid "" +"(defmacro defcurry\n" +" [name args & body]\n" +" (let [partials (map (fn [n]\n" +" `(~(subvec args 0 n) (partial ~name ~@(take n args))))\n" +" (range 1 (count args)))]\n" +" `(defn ~name\n" +" (~args ~@body)\n" +" ~@partials)))\n" +msgstr "" + +msgid "Comparison with Common Lisp" +msgstr "" + +msgid "My attempt at writing an equivalent for Common Lisp gives me:" +msgstr "" + +msgid "" +"(defun partial (fn &rest args)\n" +" (lambda (&rest args2)\n" +" (apply fn (append args args2))))\n" +"\n" +"(defun curry-n (n func)\n" +" (cond ((< n 0) (error \"Too many arguments\"))\n" +" ((zerop n) (funcall func))\n" +" (t (lambda (&rest rest)\n" +" (curry-n (- n (length rest))\n" +" (apply #'partial func rest))))))\n" +"\n" +"(defmacro defcurry (name args &body body)\n" +" `(defun ,name (&rest rest)\n" +" (let ((func (lambda ,args ,@body)))\n" +" (curry-n (- ,(length args) (length rest))\n" +" (apply #'partial func rest)))))\n" +msgstr "" + +msgid "" +"Without built-in multi-arity support, we have to do more work, like tracking" +" the number of arguments consumed so far. We also have to write `#'partial` " +"ourselves. That is, without dependending on any library, sticking to ANSI " +"Common Lisp." +msgstr "" + +msgid "The usage is pretty similar:" +msgstr "" + +msgid "" +"* (defcurry add (a b c d e)\n" +" (+ a b c d e))\n" +"ADD\n" +"\n" +"* (add 1)\n" +"#\n" +"\n" +"* (funcall (add 1) 2 3 4)\n" +"#\n" +"\n" +"* (funcall (add 1) 2 3 4 5)\n" +"15\n" +"\n" +"* (funcall (funcall (add 1) 2 3) 4 5)\n" +"15\n" +"\n" +"* (macroexpand-1\n" +" '(defcurry add (a b c d e)\n" +" (+ a b c d e)))\n" +"(DEFUN ADD (&REST REST)\n" +" (LET ((FUNC (LAMBDA (A B C D E) (+ A B C D E))))\n" +" (CURRY-N (- 5 (LENGTH REST)) (APPLY #'PARTIAL FUNC REST))))\n" +"T\n" +msgstr "" + +msgid "" +"This also require `funcall`s, since we return a `lambda` that doesn't live " +"in the function namespace." +msgstr "" + +msgid "" +"Like the Clojure one, it doesn't support optional parameters, `&rest` rest " +"arguments, docstrings, etc., but it also could evolve to do so." +msgstr "" + +msgid "updated_at: 2021-04-27" +msgstr "" + +#~ msgid "" +#~ "(defmacro defcurry\n" +#~ " [fname args & body]\n" +#~ " (let [partials (map (fn [n]\n" +#~ " `(~(subvec args 0 n) (partial ~fname ~@(take n args))))\n" +#~ " (range 1 (count args)))]\n" +#~ " `(defn ~fname\n" +#~ " (~args ~@body)\n" +#~ " ~@partials)))\n" +#~ msgstr "" + #~ msgid "date: 2021-04-24" #~ msgstr "" @@ -100,28 +185,12 @@ msgstr "" #~ "Clojure's multi-arity support:" #~ msgstr "" -#~ msgid "Comparison with Common Lisp" -#~ msgstr "" - -#~ msgid "My attempt at writing an equivalent for Common Lisp gives me:" -#~ msgstr "" - #~ msgid "" #~ "Without built-in multi-arity support, we have to do more work, like tracking" #~ " the number of arguments consumed so far. That is, without dependending on " #~ "any library, sticking to ANSI Common Lisp." #~ msgstr "" -#~ msgid "" -#~ "This also require `funcall`s, since we return a `lambda` that doesn't live " -#~ "in the function namespace." -#~ msgstr "" - -#~ msgid "" -#~ "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " -#~ "arguments, docstrings, etc., but it also could evolve to do so." -#~ msgstr "" - #~ msgid "" #~ "(defun curry-n (n fn)\n" #~ " (if (= 0 n)\n" diff --git a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po index 14036ab..ab59a4f 100644 --- a/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po +++ b/locale/pt/LC_MESSAGES/_tils/2021-04-24-clojure-auto-curry.po @@ -14,17 +14,6 @@ msgstr "" msgid "ref: clojure-auto-curry" msgstr "" -msgid "" -"(defmacro defcurry\n" -" [fname args & body]\n" -" (let [partials (map (fn [n]\n" -" `(~(subvec args 0 n) (partial ~fname ~@(take n args))))\n" -" (range 1 (count args)))]\n" -" `(defn ~fname\n" -" (~args ~@body)\n" -" ~@partials)))\n" -msgstr "" - msgid "A naive `add` definition, alongside its usage and macroexpansion:" msgstr "" @@ -90,6 +79,102 @@ msgstr "" msgid "date: 2021-04-24 1" msgstr "" +msgid "" +"(defmacro defcurry\n" +" [name args & body]\n" +" (let [partials (map (fn [n]\n" +" `(~(subvec args 0 n) (partial ~name ~@(take n args))))\n" +" (range 1 (count args)))]\n" +" `(defn ~name\n" +" (~args ~@body)\n" +" ~@partials)))\n" +msgstr "" + +msgid "Comparison with Common Lisp" +msgstr "" + +msgid "My attempt at writing an equivalent for Common Lisp gives me:" +msgstr "" + +msgid "" +"(defun partial (fn &rest args)\n" +" (lambda (&rest args2)\n" +" (apply fn (append args args2))))\n" +"\n" +"(defun curry-n (n func)\n" +" (cond ((< n 0) (error \"Too many arguments\"))\n" +" ((zerop n) (funcall func))\n" +" (t (lambda (&rest rest)\n" +" (curry-n (- n (length rest))\n" +" (apply #'partial func rest))))))\n" +"\n" +"(defmacro defcurry (name args &body body)\n" +" `(defun ,name (&rest rest)\n" +" (let ((func (lambda ,args ,@body)))\n" +" (curry-n (- ,(length args) (length rest))\n" +" (apply #'partial func rest)))))\n" +msgstr "" + +msgid "" +"Without built-in multi-arity support, we have to do more work, like tracking" +" the number of arguments consumed so far. We also have to write `#'partial` " +"ourselves. That is, without dependending on any library, sticking to ANSI " +"Common Lisp." +msgstr "" + +msgid "The usage is pretty similar:" +msgstr "" + +msgid "" +"* (defcurry add (a b c d e)\n" +" (+ a b c d e))\n" +"ADD\n" +"\n" +"* (add 1)\n" +"#\n" +"\n" +"* (funcall (add 1) 2 3 4)\n" +"#\n" +"\n" +"* (funcall (add 1) 2 3 4 5)\n" +"15\n" +"\n" +"* (funcall (funcall (add 1) 2 3) 4 5)\n" +"15\n" +"\n" +"* (macroexpand-1\n" +" '(defcurry add (a b c d e)\n" +" (+ a b c d e)))\n" +"(DEFUN ADD (&REST REST)\n" +" (LET ((FUNC (LAMBDA (A B C D E) (+ A B C D E))))\n" +" (CURRY-N (- 5 (LENGTH REST)) (APPLY #'PARTIAL FUNC REST))))\n" +"T\n" +msgstr "" + +msgid "" +"This also require `funcall`s, since we return a `lambda` that doesn't live " +"in the function namespace." +msgstr "" + +msgid "" +"Like the Clojure one, it doesn't support optional parameters, `&rest` rest " +"arguments, docstrings, etc., but it also could evolve to do so." +msgstr "" + +msgid "updated_at: 2021-04-27" +msgstr "" + +#~ msgid "" +#~ "(defmacro defcurry\n" +#~ " [fname args & body]\n" +#~ " (let [partials (map (fn [n]\n" +#~ " `(~(subvec args 0 n) (partial ~fname ~@(take n args))))\n" +#~ " (range 1 (count args)))]\n" +#~ " `(defn ~fname\n" +#~ " (~args ~@body)\n" +#~ " ~@partials)))\n" +#~ msgstr "" + #~ msgid "date: 2021-04-24" #~ msgstr "" @@ -100,28 +185,12 @@ msgstr "" #~ "Clojure's multi-arity support:" #~ msgstr "" -#~ msgid "Comparison with Common Lisp" -#~ msgstr "" - -#~ msgid "My attempt at writing an equivalent for Common Lisp gives me:" -#~ msgstr "" - #~ msgid "" #~ "Without built-in multi-arity support, we have to do more work, like tracking" #~ " the number of arguments consumed so far. That is, without dependending on " #~ "any library, sticking to ANSI Common Lisp." #~ msgstr "" -#~ msgid "" -#~ "This also require `funcall`s, since we return a `lambda` that doesn't live " -#~ "in the function namespace." -#~ msgstr "" - -#~ msgid "" -#~ "Like the Clojure one, it doesn't support optional parameters, `&rest` rest " -#~ "arguments, docstrings, etc., but it also could evolve to do so." -#~ msgstr "" - #~ msgid "" #~ "(defun curry-n (n fn)\n" #~ " (if (= 0 n)\n" -- cgit v1.2.3