diff options
| author | Abigail <abigail@abigail.be> | 2021-03-17 18:58:42 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-03-17 20:14:49 +0100 |
| commit | c585402ac87611b8f92cae30fbe3e8e6be6f4394 (patch) | |
| tree | e57df03b4d96bd1996664183517d5d1f8022b31d | |
| parent | 738a471f90d3d6b10bcfe37a6deca5504e2fe39d (diff) | |
| download | perlweeklychallenge-club-c585402ac87611b8f92cae30fbe3e8e6be6f4394.tar.gz perlweeklychallenge-club-c585402ac87611b8f92cae30fbe3e8e6be6f4394.tar.bz2 perlweeklychallenge-club-c585402ac87611b8f92cae30fbe3e8e6be6f4394.zip | |
Befunge-93 solution for week 104, part 2
| -rw-r--r-- | challenge-104/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-104/abigail/befunge-93/ch-2.bf93 | 18 |
2 files changed, 19 insertions, 0 deletions
diff --git a/challenge-104/abigail/README.md b/challenge-104/abigail/README.md index 8704ccbcc2..8e80c0dd38 100644 --- a/challenge-104/abigail/README.md +++ b/challenge-104/abigail/README.md @@ -92,6 +92,7 @@ After the third move, we print that the computer has won. ### Solutions * [AWK](awk/ch-2.awk) * [Bash](bash/ch-2.sh) +* [Befunge-93](befunge/ch-2.bf93) * [C](c/ch-2.c) * [Lua](lua/ch-2.lua) * [Perl](perl/ch-2.pl) diff --git a/challenge-104/abigail/befunge-93/ch-2.bf93 b/challenge-104/abigail/befunge-93/ch-2.bf93 new file mode 100644 index 0000000000..07bd003a68 --- /dev/null +++ b/challenge-104/abigail/befunge-93/ch-2.bf93 @@ -0,0 +1,18 @@ +< v"How many tokens do you take? (" < _^#: < *43 +v > ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, +> ::33*`#v_" ",>. v + > ^ + v "tokens are left) " < +>v > ,,,,,,,,,,,,,,,,, & + > :1-#v_ 3 v + >:2-#v_ 2 v + >:3-#v_ 1 v + > $ ^ + v "Computer takes " < - + > ,,,,,,,,,,,,,,, :. v 4 + v "token" < $ + > ,,,,, 1-#v_ > 55+, ^ + >"s",^ + + v "Computer wins" < + > ,,,,,,,,,,,,, 55+, @ |