From 61d799647cf15dcc4d83a8e2260134f007f0c5bb Mon Sep 17 00:00:00 2001 From: Abigail Date: Mon, 15 Mar 2021 15:49:40 +0100 Subject: Forth solution for week 104, part 1 --- challenge-104/abigail/README.md | 1 + challenge-104/abigail/forth/ch-1.fs | 7 +++++++ 2 files changed, 8 insertions(+) create mode 100644 challenge-104/abigail/forth/ch-1.fs diff --git a/challenge-104/abigail/README.md b/challenge-104/abigail/README.md index bb367b0619..753280fd97 100644 --- a/challenge-104/abigail/README.md +++ b/challenge-104/abigail/README.md @@ -26,6 +26,7 @@ even handle a single if statement. A single print statement is enough. * [Befunge-93](befunge-93/ch-1.bf93) * [bc](bc/ch-1.bc) * [C](c/ch-1.c) +* [Forth](forth/ch-1.fs) * [Fortran](fortran/ch-1.f90) * [Lua](lua/ch-1.lua) * [Node.js](node/ch-1.js) diff --git a/challenge-104/abigail/forth/ch-1.fs b/challenge-104/abigail/forth/ch-1.fs new file mode 100644 index 0000000000..f508acae54 --- /dev/null +++ b/challenge-104/abigail/forth/ch-1.fs @@ -0,0 +1,7 @@ +\ +\ See ../README.md +\ + +.( 0 1 1 2 1 3 2 3 1 4 3 5 2 5 3 4 1 5 4 7 3 8 5 7 2 7 ) +.( 5 8 3 7 4 5 1 6 5 9 4 11 7 10 3 11 8 13 5 12 7 9 2 9) +CR -- cgit