# Digest #180 2022-04-06

# Contributions

## referenceImplementation - Possible Reference Implementation

Would the following be a viable reference implementation?

```
: VARIABLE ALIGN HERE 0 , CONSTANT ;
```

Of course... this initializes the contents, and you might not want to imply that such is required in an implementation. So maybe this more verbose definition:?

```
: VARIABLE ALIGN HERE 1 CELLS ALLOT CONSTANT ;
```

## referenceImplementation - Possible Reference Implementation

I'm not sure of the value of reference implementations for such simple words, but here's one:

```
: MIN 2DUP < IF DROP EXIT THEN NIP ;
```

... there's also an equivalent for MAX:

```
: MAX 2DUP < IF NIP EXIT THEN DROP ;
```

But hen, NIP is in CORE-EXT, and providing a reference for a CORE word that uses words from CORE-EXT may seem invalid, so would these be more preferred?:

```
: MIN 2DUP > IF SWAP THEN DROP ;
: MAX 2DUP < IF SWAP THEN DROP ;
```

Just taking a stab at this:

```
: ALIGN HERE ALIGNED HERE - ALLOT ;
```

# Replies

`$7FFFFFFFFFFFFFFF 1 lshift`

produces `$FFFFFFFFFFFFFFFE`

(on a 64-bit system).

`$7FFFFFFFFFFFFFFF 1 lshift 0`

produces `$FFFFFFFFFFFFFFFE 0`

.

I.e., the right side of the test case produces the values that you correctly identified as correct answer.

Thank you for the clarification but can I suggest that, if at all possible, the formatting of the test answer is changed? It looks very much like there are two groups here and the second is "1 LSHIFT 0" which obviously makes no sense as Forth but which I assumed meant 1 shifted left by zero (ie 1). Perhaps that is my mistake, but the formatting encouraged me in it.

## referenceImplementation - Suggested reference implementation

With `DECIMAL`

, you could:

```
BASE @ DECIMAL : HEX 16 BASE ! ; BASE !
```

... but then it's difficult to define `DECIMAL`

(without `HEX`

or `BIN`

).

The best I could come up with for the entire set is:

```
BASE @ \ remember it ...
1 2* BASE ! \ get to binary
: BIN 10 BASE ! ;
: DECIMAL 1010 BASE ! ;
: HEX 10000 BASE ! ;
BASE ! \ ... and restore it
```