retroforth/example/CloseParen.forth
crc 3baec011f8 in which array: is shortend to a:
FossilOrigin-Name: 8ef48cdc551a339b816fe6123e164ced7367a1b96c081a1920cdfd3c942f1a65
2019-04-24 14:02:15 +00:00

35 lines
830 B
Forth

I find `)` useful to punctuate code chunks.
~~~
:) ; immediate (code_chunk_punctuation_that_does_nothing
~~~
Here is an example:
:i@ (an-n) a:nth fetch ;
~~~
{{
:I@ (an-n) I a:nth fetch ;
'Index 'Value [ var ] bi@
:lt?-or-gt? hook ;
:pre.min (a-an)
(comparison &lt? &lt?-or-gt? set-hook )
(begin_with #-1 !Index n:MAX !Value dup a:length ) ;
:pre.max (a-an)
(comparison &gt? &lt?-or-gt? set-hook )
(begin_with #-1 !Index n:MIN !Value dup a:length ) ;
:min-or-max (a-nn) [ dup I@ dup @Value lt?-or-gt?
[ !Value I !Index ] [ drop ] choose ] times<with-index>
(a-nn drop @Index @Value ) ;
---reveal---
:a:min (a-iv) pre.min min-or-max ;
:a:max (a-iv) pre.max min-or-max ;
}}
~~~
```
{ #3 #2 #5 #7 #3 } a:min dump-stack nl reset
{ #3 #2 #5 #7 #3 } a:max dump-stack nl
```