From 81b7da4fd0c681d3bad3757121089f86ca87101c Mon Sep 17 00:00:00 2001 From: GitHub Actions Date: Tue, 24 Dec 2024 01:09:16 +0000 Subject: [PATCH] Generated Sample Programs website automatically on-behalf-of: @TheRenegadeCoder --- docs/index.md | 2 +- docs/languages/index.md | 6 +-- docs/languages/owl-lisp/index.md | 5 +- docs/projects/baklava/index.md | 3 +- docs/projects/baklava/owl-lisp/index.md | 69 +++++++++++++++++++++++++ 5 files changed, 78 insertions(+), 7 deletions(-) create mode 100644 docs/projects/baklava/owl-lisp/index.md diff --git a/docs/index.md b/docs/index.md index 42d65e3d2..ad622ba98 100644 --- a/docs/index.md +++ b/docs/index.md @@ -5,6 +5,6 @@ layout: default title: Sample Programs in Every Language --- -Welcome to Sample Programs in Every Language, a collection of code snippets in as many languages as possible. Thanks for taking an interest in our collection which currently contains 1156 articles written by 260 authors. +Welcome to Sample Programs in Every Language, a collection of code snippets in as many languages as possible. Thanks for taking an interest in our collection which currently contains 1157 articles written by 260 authors. If you'd like to contribute to this growing collection, check out our [contributing document](https://github.com/TheRenegadeCoder/sample-programs/blob/master/.github/CONTRIBUTING.md) for more information. In addition, you can explore our documentation which is organized by [project](/projects) and by [language](/languages). If you don't find what you're look for, check out our list of related [open-source projects](/related). Finally, if code isn't your thing but you'd still like to help, there are plenty of other ways to [support the project](https://therenegadecoder.com/updates/5-ways-you-can-support-the-renegade-coder/). \ No newline at end of file diff --git a/docs/languages/index.md b/docs/languages/index.md index 6f2373175..cb97a8481 100644 --- a/docs/languages/index.md +++ b/docs/languages/index.md @@ -6,7 +6,7 @@ layout: default title: Programming Languages --- -Welcome to the Languages page! Here, you'll find a list of all of the languages represented in the collection. At this time, there are 154 languages, of which 153 are tested, 1 is untestable, and 965 code snippets. +Welcome to the Languages page! Here, you'll find a list of all of the languages represented in the collection. At this time, there are 154 languages, of which 153 are tested, 1 is untestable, and 966 code snippets. ## Language Collections by Letter @@ -239,7 +239,7 @@ The 'N' collection contains 3 languages, of which 3 are tested, and 6 code snipp ### O -The 'O' collection contains 7 languages, of which 7 are tested, and 37 code snippets. +The 'O' collection contains 7 languages, of which 7 are tested, and 38 code snippets. - [Objective C](https://sampleprograms.io/languages/objective-c) (10 code snippets) - [Ocaml](https://sampleprograms.io/languages/ocaml) (2 code snippets) @@ -247,7 +247,7 @@ The 'O' collection contains 7 languages, of which 7 are tested, and 37 code snip - [Odin](https://sampleprograms.io/languages/odin) (7 code snippets) - [Opa](https://sampleprograms.io/languages/opa) (1 code snippet) - [Orc](https://sampleprograms.io/languages/orc) (2 code snippets) -- [Owl Lisp](https://sampleprograms.io/languages/owl-lisp) (1 code snippet) +- [Owl Lisp](https://sampleprograms.io/languages/owl-lisp) (2 code snippets) « [Return to Top](#language-collections-by-letter) » diff --git a/docs/languages/owl-lisp/index.md b/docs/languages/owl-lisp/index.md index c9c832cef..3f25e0017 100644 --- a/docs/languages/owl-lisp/index.md +++ b/docs/languages/owl-lisp/index.md @@ -1,7 +1,7 @@ --- date: 2018-06-29 featured-image: programming-languages.jpg -last-modified: 2018-06-29 +last-modified: 2024-12-23 layout: default tags: - owl-lisp @@ -26,6 +26,7 @@ No 'Description' section available. [Please consider contributing](https://githu ## Articles -There is 1 article: +There are 2 articles: +- [Baklava in Owl Lisp](https://sampleprograms.io/projects/baklava/owl-lisp) - [Hello World in Owl Lisp](https://sampleprograms.io/projects/hello-world/owl-lisp) \ No newline at end of file diff --git a/docs/projects/baklava/index.md b/docs/projects/baklava/index.md index b338f1ed9..cd301a775 100644 --- a/docs/projects/baklava/index.md +++ b/docs/projects/baklava/index.md @@ -79,7 +79,7 @@ Verify that the actual output matches the expected output ## Articles -There are 84 articles: +There are 85 articles: - [Baklava in Ada](https://sampleprograms.io/projects/baklava/ada) - [Baklava in Algol68](https://sampleprograms.io/projects/baklava/algol68) @@ -116,6 +116,7 @@ There are 84 articles: - [Baklava in Octave](https://sampleprograms.io/projects/baklava/octave) - [Baklava in Odin](https://sampleprograms.io/projects/baklava/odin) - [Baklava in Orc](https://sampleprograms.io/projects/baklava/orc) +- [Baklava in Owl Lisp](https://sampleprograms.io/projects/baklava/owl-lisp) - [Baklava in Pascal](https://sampleprograms.io/projects/baklava/pascal) - [Baklava in Perl](https://sampleprograms.io/projects/baklava/perl) - [Baklava in Phix](https://sampleprograms.io/projects/baklava/phix) diff --git a/docs/projects/baklava/owl-lisp/index.md b/docs/projects/baklava/owl-lisp/index.md new file mode 100644 index 000000000..3a8b6a3e9 --- /dev/null +++ b/docs/projects/baklava/owl-lisp/index.md @@ -0,0 +1,69 @@ +--- +authors: +- rzuckerm +date: 2024-12-23 +featured-image: baklava-in-every-language.jpg +last-modified: 2024-12-23 +layout: default +tags: +- baklava +- owl-lisp +title: Baklava in Owl Lisp +--- + + + +Welcome to the [Baklava](https://sampleprograms.io/projects/baklava) in [Owl Lisp](https://sampleprograms.io/languages/owl-lisp) page! Here, you'll find the source code for this program as well as a description of how the program works. + +## Current Solution + +{% raw %} + +```owl_lisp +(define (string-repeat n str) + (fold string-append "" (make-list n str)) +) + +(define (baklava-line n) + (define num-spaces (abs n)) + (define num-stars (- 21 (* 2 num-spaces))) + (print (string-repeat num-spaces " ") (string-repeat num-stars "*")) +) + +(define (baklava n ne) + (if (<= n ne) + (begin + (baklava-line n) + (baklava (+ n 1) ne) + ) + ) +) + +(λ (args) (baklava -10 10)) + +``` + +{% endraw %} + +Baklava in [Owl Lisp](https://sampleprograms.io/languages/owl-lisp) was written by: + +- rzuckerm + +If you see anything you'd like to change or update, [please consider contributing](https://github.com/TheRenegadeCoder/sample-programs). + +## How to Implement the Solution + +No 'How to Implement the Solution' section available. [Please consider contributing](https://github.com/TheRenegadeCoder/sample-programs-website). + +## How to Run the Solution + +No 'How to Run the Solution' section available. [Please consider contributing](https://github.com/TheRenegadeCoder/sample-programs-website). \ No newline at end of file