diff options
Diffstat (limited to 'v2/src/content/en/pastebin')
-rw-r--r-- | v2/src/content/en/pastebin/guix-shebang.md | 15 | ||||
-rw-r--r-- | v2/src/content/en/pastebin/raku-tuple-type-annotation.md | 33 | ||||
-rw-r--r-- | v2/src/content/en/pastebin/sicp-exercise-3-19.md | 109 |
3 files changed, 0 insertions, 157 deletions
diff --git a/v2/src/content/en/pastebin/guix-shebang.md b/v2/src/content/en/pastebin/guix-shebang.md deleted file mode 100644 index 5be9ada..0000000 --- a/v2/src/content/en/pastebin/guix-shebang.md +++ /dev/null @@ -1,15 +0,0 @@ ---- - -title: Guix shebang - -date: 2020-02-14 - ---- - -```shell -#!/usr/bin/env -S guix environment --ad-hoc bash -- bash -set -Eeuo pipefail -cd "$(dirname "${BASH_SOURCE[0]}")" - -pwd -``` diff --git a/v2/src/content/en/pastebin/raku-tuple-type-annotation.md b/v2/src/content/en/pastebin/raku-tuple-type-annotation.md deleted file mode 100644 index 6c13b39..0000000 --- a/v2/src/content/en/pastebin/raku-tuple-type-annotation.md +++ /dev/null @@ -1,33 +0,0 @@ ---- - -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 deleted file mode 100644 index 32f7aa9..0000000 --- a/v2/src/content/en/pastebin/sicp-exercise-3-19.md +++ /dev/null @@ -1,109 +0,0 @@ ---- - -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 |