Welcome to Software Development on Codidact!
Will you help us build our independent community of developers helping developers? We're small and trying to grow. We welcome questions about all aspects of software development, from design to code to QA and more. Got questions? Got answers? Got code you'd like someone to review? Please join us.
Post History
: at-default ( default key assoc -- value/default ) at* [ nip ] [ drop ] if ; inline 100 1 H{ { 1 2 } } at-default . 2 100 10 H{ { 1 2 } } at-default . 100 You can also just do this...
Answer
#1: Initial revision
by
erg
·
2022-08-17T16:56:21Z (over 2 years ago)
```
: at-default ( default key assoc -- value/default )
at* [ nip ] [ drop ] if ; inline
100 1 H{ { 1 2 } } at-default .
2
100 10 H{ { 1 2 } } at-default .
100
```
You can also just do this:
```
H{ { 1 2 } } 1 of [ 100 ] unless* .
2
H{ { 1 2 } } 10 of [ 100 ] unless* .
100
H{ { 1 2 } } 1 of 100 or .
2
H{ { 1 2 } } 10 of 100 or .
100
```