From 6c2cbb02ac4b16ee7b4c37de50403ce604868ec0 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 8 Apr 2023 16:20:00 -0300
Subject: v2: i18n of the collection name, "article" collection in root

---
 .../en/pastebin/raku-tuple-type-annotation.md      |  33 +++++++
 v2/src/content/en/pastebin/sicp-exercise-3-19.md   | 109 +++++++++++++++++++++
 2 files changed, 142 insertions(+)
 create mode 100644 v2/src/content/en/pastebin/raku-tuple-type-annotation.md
 create mode 100644 v2/src/content/en/pastebin/sicp-exercise-3-19.md

(limited to 'v2/src/content/en/pastebin')

diff --git a/v2/src/content/en/pastebin/raku-tuple-type-annotation.md b/v2/src/content/en/pastebin/raku-tuple-type-annotation.md
new file mode 100644
index 0000000..6c13b39
--- /dev/null
+++ b/v2/src/content/en/pastebin/raku-tuple-type-annotation.md
@@ -0,0 +1,33 @@
+---
+
+title: Raku tuple type annotation
+
+date: 2019-12-29
+
+categories: raku programming-languages
+
+---
+
+```perl
+# Single Str return value: this works
+sub f1(Str $in --> Str) {
+  $in;
+}
+
+# Tuple of Str as return value: this works
+sub f2(Str $in) {
+  ($in, $in);
+}
+
+# Tuple of Str as return value with type annotation: this doesn't works
+sub f2(Str $in --> (Str, Str)) {
+  ($in, $in);
+}
+```
+
+Error log is:
+
+```perl
+===SORRY!=== Error while compiling /path/to/my/file
+Malformed return value
+```
diff --git a/v2/src/content/en/pastebin/sicp-exercise-3-19.md b/v2/src/content/en/pastebin/sicp-exercise-3-19.md
new file mode 100644
index 0000000..32f7aa9
--- /dev/null
+++ b/v2/src/content/en/pastebin/sicp-exercise-3-19.md
@@ -0,0 +1,109 @@
+---
+
+title: SICP exercise 3.19
+
+date: 2021-09-02
+
+categories: lisp programming-languages
+
+---
+
+Some content here, before:
+
+```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:
+
+```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
+```
+
+# An h1
+
+a list:
+
+1. one
+2. two
+3. three
+
+some content.
+
+- item
+- another
+- yet another
+
+## An h2
+
+Xablau:
+
+```
+xupliu 1
+
+3
+4
+
+
+
+
+
+dez
+```
+
+Foi `wikiwiu`.
+
+a very long code block:
+
+```
+wef
+wef               wef            wef       wef
+wef                                                   wef       wef wef we fwef                wef wef wef            wef 
+```
+
+Someone said:
+
+> Xablau, xupliu.
+
+### A repeated header
+### A repeated header
+
+a big list:
+
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
+1. a
-- 
cgit v1.2.3