diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2023-11-30 16:24:21 -0500 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2023-11-30 16:24:21 -0500 |
| commit | 7fb14aa20db0ed9728c89ec37679ccccbb6bcb9a (patch) | |
| tree | 8957a6e17823f4ab0b763aab9090aba17f0c3aba | |
| parent | c151cb6f82cb6f756ee57262561c0ead507028be (diff) | |
| parent | a6510c7ef2c4f7d5b56ee3e61564d733e1ad47c2 (diff) | |
| download | perlweeklychallenge-club-7fb14aa20db0ed9728c89ec37679ccccbb6bcb9a.tar.gz perlweeklychallenge-club-7fb14aa20db0ed9728c89ec37679ccccbb6bcb9a.tar.bz2 perlweeklychallenge-club-7fb14aa20db0ed9728c89ec37679ccccbb6bcb9a.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
123 files changed, 7351 insertions, 2425 deletions
diff --git a/challenge-242/paulo-custodio/forth/ch-1.fs b/challenge-242/paulo-custodio/forth/ch-1.fs index 6de8f3a904..20fe605fd2 100644 --- a/challenge-242/paulo-custodio/forth/ch-1.fs +++ b/challenge-242/paulo-custodio/forth/ch-1.fs @@ -26,8 +26,12 @@ CREATE arr1 256 CELLS ALLOT CREATE arr2 256 CELLS ALLOT -: array_size ( arr-addr -- size-addr ) ; -: array[] ( arr-addr i -- elem-addr ) 1+ CELLS + ; +: array_size ( arr-addr -- size-addr ) +; + +: array[] ( arr-addr i -- elem-addr ) + 1+ CELLS + +; : array_push_back ( arr-addr n -- ) { arr n } diff --git a/challenge-244/paulo-custodio/forth/ch-1.fs b/challenge-244/paulo-custodio/forth/ch-1.fs new file mode 100644 index 0000000000..02010237d9 --- /dev/null +++ b/ |