vzpominam si na jednu zajimavou ulohu na defining words (nekde na webu):
Vytvorte defining word .base ktery vezme z TOS zaklad soustavy a vyrobi slovo, ktere vytiskne aktualni TOS podle tohoto zakladu.
Melo by to potom fungovat takto:
decimal -> ok
2 .base .b -> ok
10 .base .d -> ok
16 .base .h -> ok
123 .d -> 123 ok
123 .h -> 7b ok
123 .b -> 1111011 ok
To jsem taky v tom clanku nenapsal :-) Napsal jsem pouze, ze se to deje podobnym zpusobem, tj. Forth pouziva [if] [then] [else] a C-ckovy preprocesor #if #else a #endif. Az na ty okrasy kolem je to prece uplne to same (Forth je trosku dal, protoze ma rozsirene chapani vyrazu u [if]).