git mv src/content/* src/content/en/

6 files changed, 370 insertions, 0 deletions

diff --git a/src/content/en/pastebins/2021/04/03/naive-slugify-js.adoc b/src/content/en/pastebins/2021/04/03/naive-slugify-js.adoc
new file mode 100644
index 0000000..184ce97
--- /dev/null
+++ b/src/content/en/pastebins/2021/04/03/naive-slugify-js.adoc
@@ -0,0 +1,28 @@
+= JavaScript naive slugify
+:updatedat: 2021-08-15
+
+[source,javascript]
+----
+const s = "Pézão: açaí, saci-pererê.";
+
+const slugify = s =>
+  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/src/content/en/pastebins/2021/06/08/reading-session-pt1.adoc b/src/content/en/pastebins/2021/06/08/reading-session-pt1.adoc
new file mode 100644
index 0000000..d9f1f91
--- /dev/null
+++ b/src/content/en/pastebins/2021/06/08/reading-session-pt1.adoc
@@ -0,0 +1,66 @@
+= Debit Reading Session - SICP solutions pt.1
+
+[source,scheme]
+----
+;; 1.41
+(define (double f)
+  (lambda (x)
+    (f (f x))))
+
+
+:;; 1.42
+(define (compose f g)
+  (lambda (x)
+    (f (g x))))
+
+
+;;; 1.43
+(define (repeated f n)
+  (if (= 1 n)
+    identity
+    (comp (repeated f (dec n)))))
+
+
+;;; 2.27
+(define (map-tree node-fn leaf-fn tree)
+  (cond
+   ((null? tree) tree)
+   ((not (pair? tree)) (leaf-fn tree))
+   (else
+    (node-fn
+     (cons (map-tree node-fn leaf-fn (car tree))
+           (map-tree node-fn leaf-fn (cdr tree)))))))
+
+(define (map-nodes f tree)
+  (map-tree f identity tree))
+
+(define (deep-reverse x)
+  (map-nodes reverse x))
+
+
+;;; 2.28
+(define (flatten tree)
+  (define (rec acc t)
+    (cond
+     ((null? t) acc)
+     ((not (pair? t)) (cons t acc))
+     (else
+      (rec (rec (cdr t) acc)
+           (car t)))))
+  (rec nil tree))
+
+
+;;; 2.30
+(define (square-tree tree)
+  (map-leaves square tree))
+
+
+;;; 2.31
+(define square-tree map-leaves) ; ha!
+
+
+;;; 2.32
+TODO
+----
+
+FYI: I just typed those in, I didn't yet test them yet.
diff --git a/src/content/en/pastebins/2021/06/22/curl-wget.adoc b/src/content/en/pastebins/2021/06/22/curl-wget.adoc
new file mode 100644
index 0000000..97f55c7
--- /dev/null
+++ b/src/content/en/pastebins/2021/06/22/curl-wget.adoc
@@ -0,0 +1,92 @@
+= "cloc: curl and wget"
+
+`curl`:
+
+[source,sh]
+----
+$ pushd `mktemp -d`
+/tmp/tmp.AZkwvk7azD ~/
+$ git clone git://github.com/curl/curl .
+Clonage dans '.'...
+remote: Enumerating objects: 167029, done.
+remote: Counting objects: 100% (925/925), done.
+remote: Compressing objects: 100% (372/372), done.
+remote: Total 167029 (delta 590), reused 818 (delta 548), pack-reused 166104
+Réception d'objets: 100% (167029/167029), 75.63 Mio | 9.33 Mio/s, fait.
+Résolution des deltas: 100% (131415/131415), fait.
+$ cloc .
+    3386 text files.
+    3342 unique files.
+    2084 files ignored.
+
+github.com/AlDanial/cloc v 1.90  T=1.34 s (973.7 files/s, 260104.4 lines/s)
+------------------------------------------------------------------------------------
+Language                          files          blank        comment           code
+------------------------------------------------------------------------------------
+C                                   535          25645          36361         135318
+XML                                  23             21             20          45997
+m4                                   29           1526           1976          16972
+Perl                                 56           2611           4010          15411
+C/C++ Header                        223           4178          10109          13794
+Markdown                             53           2784              0           7038
+Visual Studio Solution               27              0             21           5049
+D                                   242            398              0           3549
+CMake                                34            754           1288           3056
+DOS Batch                             7            293            370           1554
+YAML                                 18            115            171           1493
+make                                 21            296            660           1440
+Bourne Shell                         22            326            633           1136
+Pascal                                2            228              0            634
+Python                                4            196            221            628
+Visual Basic Script                   1             30             60            341
+C++                                   3             58             69            169
+Gencat NLS                            1              2              0            130
+TNSDL                                 1              3              0            113
+Windows Resource File                 2             17             47            110
+Bourne Again Shell                    1             17             44             97
+Protocol Buffers                      1              2              0             28
+diff                                  1              0              0             11
+Lisp                                  1              1             23              7
+TOML                                  1              0              0              3
+------------------------------------------------------------------------------------
+SUM:                               1309          39501          56083         254078
+------------------------------------------------------------------------------------
+----
+
+`wget`:
+
+[source,sh]
+----
+$ pushd `mktemp -d`
+/tmp/tmp.NX0udlJMiz ~/
+$ git clone git://git.savannah.gnu.org/wget.git .
+Clonage dans '.'...
+remote: Counting objects: 52248, done.
+remote: Compressing objects: 100% (18430/18430), done.
+remote: Total 52248 (delta 23879), reused 52248 (delta 23879)
+Réception d'objets: 100% (52248/52248), 13.11 Mio | 6.18 Mio/s, fait.
+Résolution des deltas: 100% (23879/23879), fait.
+$ cloc .
+   12210 text files.
+   11629 unique files.
+   11876 files ignored.
+
+github.com/AlDanial/cloc v 1.90  T=1.26 s (270.4 files/s, 61357.4 lines/s)
+--------------------------------------------------------------------------------
+Language                      files          blank        comment           code
+--------------------------------------------------------------------------------
+C                                53           6596           8955          34084
+Perl                            106           1832            870           7415
+Python                          105           1481           2374           5318
+C/C++ Header                     43            704           1153           1486
+Bourne Shell                     11            308            311           1278
+m4                                3            172            183            940
+make                              9            136            172            522
+YAML                              3             27             13            515
+Bourne Again Shell                6             78             89            274
+Markdown                          2             37              0            113
+lex                               1             29             65             73
+--------------------------------------------------------------------------------
+SUM:                            342          11400          14185          52018
+--------------------------------------------------------------------------------
+----
diff --git a/src/content/en/pastebins/2021/08/11/h1-spacing.adoc b/src/content/en/pastebins/2021/08/11/h1-spacing.adoc
new file mode 100644
index 0000000..38dbb2e
--- /dev/null
+++ b/src/content/en/pastebins/2021/08/11/h1-spacing.adoc
@@ -0,0 +1,75 @@
+= Spaces around h1 tags
+:updatedat: 2021-08-15
+
+_EDIT_: Apparently, the behaviour below is consistent between Firefox and
+Chromium for links, but not for `<h1>`.  My conclusion is that the `<h1>`
+behaviour is a Firefox quirk, but the `<a>` is expected.
+
+'''''
+
+The HTML below has selectable extra spaces after `<h1>` tags:
+
+[source,html]
+----
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="UTF-8" />
+    <meta name="viewport" content="width=device-width, initial-scale=1" />
+    <title>Spaces around h1 tags</title>
+  </head>
+  <body>
+    <main>
+      <h1>
+        With spaces around when selecting this heading
+      </h1>
+      <h1>Without spaces around</h1>
+      <p>
+        Is this expected behaviour?
+      </p>
+    </main>
+  </body>
+</html>
+----
+
+The rendered output is:
+
+With spaces around when selecting this heading
+
+Without spaces around
+
+Is this expected behaviour?
+
+'''''
+
+The same with links:
+
+[source,html]
+----
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="UTF-8" />
+    <meta name="viewport" content="width=device-width, initial-scale=1" />
+    <title>Spaces after a tags</title>
+  </head>
+  <body>
+    <main>
+      <p>
+        <a href="#">
+          With extra underlined space
+        </a>
+      </p>
+      <p>
+        <a href="#">Without extra underlined space</a>
+      </p>
+    </main>
+  </body>
+</html>
+----
+
+The rendered output is:
+
+With extra underlined space after the link.
+
+Without extra underlined space after the link.
diff --git a/src/content/en/pastebins/2021/09/02/sicp-3-19.adoc b/src/content/en/pastebins/2021/09/02/sicp-3-19.adoc
new file mode 100644
index 0000000..166170f
--- /dev/null
+++ b/src/content/en/pastebins/2021/09/02/sicp-3-19.adoc
@@ -0,0 +1,33 @@
+= SICP exercise 3.19
+:categories: lisp programming-languages
+
+[source,scheme]
+----
+(define (cycle? l)
+  (define (rec l x)
+    (cond
+      ((null? x) false)
+      ((eq? l x) true)
+      (true (rec l (cdr x)))))
+  (rec l (cdr l)))
+----
+
+Sample interactive session:
+
+[source,scheme]
+----
+scheme@(guile-user)> (define true #t)
+scheme@(guile-user)> (define false #f)
+scheme@(guile-user)>
+(define (cycle? l)
+  (define (rec l x)
+    (cond
+      ((null? x) false)
+      ((eq? l x) true)
+      (true (rec l (cdr x)))))
+  (rec l (cdr l)))
+scheme@(guile-user)> (cycle? '(1 2 3))
+$9 = #f
+scheme@(guile-user)> (cycle? (make-cycle '(1 2 3)))
+$10 = #t
+----
diff --git a/src/content/en/pastebins/2021/09/03/sicp-persistent-queue.adoc b/src/content/en/pastebins/2021/09/03/sicp-persistent-queue.adoc
new file mode 100644
index 0000000..2b4a8a2
--- /dev/null
+++ b/src/content/en/pastebins/2021/09/03/sicp-persistent-queue.adoc
@@ -0,0 +1,76 @@
+= SICP persistent amortized O(1) queue
+
+[source,scheme]
+----
+(define (queue)
+  (cons '()
+    '()))
+
+(define (enqueue x q)
+  (cons (car q)
+        (cons x (cdr q))))
+
+(define (flush q)
+  (cons (reverse (cdr q))
+        '()))
+
+(define (dequeue q)
+  (if (null? (car q))
+    (dequeue (flush q))
+    (cons (caar q)
+      (cons (cdar q)
+            (cdr q)))))
+
+(define (empty? q)
+  (and (null? (car q))
+       (null? (cdr q))))
+
+(define (peek q)
+  (car (dequeue q)))
+
+(define (print-queue q)
+  (define (rec l leading-space?)
+    (when (not (null? l))
+      (when leading-space?
+      (display " "))
+      (display (car l))
+      (rec (cdr l) #t)))
+
+  (display "#q(")
+  (rec (car q) false)
+  (rec (reverse (cdr q)) (not (null? (car q))))
+  (display ")")
+  (newline))
+----
+
+Sample interactive session:
+
+[source,scheme]
+----
+scheme@(guile-user)> (define true #t)
+scheme@(guile-user)> (define false #f)
+scheme@(guile-user)> (define q (queue))
+scheme@(guile-user)> (print-queue q)
+#q()
+scheme@(guile-user)> (print-queue (enqueue 'a q))
+#q(a)
+scheme@(guile-user)> (print-queue q)
+#q()
+scheme@(guile-user)> (set! q (enqueue 'a q))
+scheme@(guile-user)> (print-queue q)
+#q(a)
+scheme@(guile-user)> (set! q (enqueue 'e (enqueue 'd (enqueue 'c (enqueue 'b q)))))
+scheme@(guile-user)> (print-queue q)
+#q(e d c b a)
+scheme@(guile-user)> (peek q)
+$28 = a
+scheme@(guile-user)> (define ret (dequeue q))
+scheme@(guile-user)> (define value (car ret))
+scheme@(guile-user)> (set! q (cdr ret))
+scheme@(guile-user)> value
+$29 = a
+scheme@(guile-user)> (print-queue q)
+#q(b c d e)
+scheme@(guile-user)> (print-queue (cdr (dequeue (cdr (dequeue (enqueue 'g (enqueue 'f q)))))))
+#q(d e f g)
+----