要素、17文字と1スペース
_'[_ 2:n;0>[n~+]]`
これが私の最初の構築言語です。非常にコンパクトで人間が読めるように設計されています。命令はすべて1文字の長さで、1つの機能を実行します。
要素には、メモリ構造として2つのスタックとハッシュがあります。2つのスタックは、メインスタックおよびコントロールスタックと呼ばれます。メインスタックは、算術演算、I / O、およびハッシュ操作が行われる場所です。制御スタックは論理演算が発生する場所であり、このスタックはwhileループとforループを制御します。
Elementの背後にある基本的な考え方は、数値/文字列を保存するハッシュがあり、スタックはこれらの数値の計算を実行するために使用されるということです。これらの計算の結果は、将来の使用のためにハッシュ内の特定の場所に割り当てることができます。ハッシュのさまざまなコンテンツは要素と呼ばれるため、配列に似ていますが、数値以外の名前を持つことができます。
編集:ここでは、Perlで記述されたElementのインタープリターを見つけることができます。
演算子のリストは次のとおりです。これらの例の一部では、mとnは既にスタックにある数値を表します。
text --pushes the string "text" onto the main stack
' --pops from main stack and pushes onto control stack
" --pops from control stack and pushes onto main stack
# --pops from main stack and destroys
[] --FOR statement (view the top number number from control stack and eval those many times)
{} --WHILE (loop until top number on control stack is 0)
( --pops from main stack, removes first character, pushes the remaining string onto stack, and pushes the removed character onto stack
) --pops from main stack, removes last character, pushes the remaining string onto stack, and pushes the removed character onto stack
~ --pops from main stack, pushes contents of the element with that name
+-*/%^ --pops two most recently named elements, adds/negates/multiplies/divides/modulates/exponentiates them, and places the result on the stack
mn; --pops m and n and assigns element n the value of m
mn@ --pops m and n and moves mth thing in stack to move to place n in stack
m$ --pops m and pushs size of m onto the stack
mn: --pops m and n and pushes m onto the stack n times
mn. --pops m and n and pushes m concatonated with n
m? --pops m and pushes 0 onto control stack if m is '0' or and empty string, else pushes 1
\ --escapes out of next character, so it isn't an operator and con be pushed onto the stack
><= --pops two numbers off of stack and tests, pushes 1 onto control stack if true and 0 if false
` --pops from main stack and prints
&| --pops two items from control stack, performs and/or respectively, and pushes result back onto control stack
! --pops a number off of control stack, pushes 1 if 0 or empty string, 0 otherwise
_ --inputs a word and pushes onto main stack
m, --pops m from main stack, coverts it to char and pushes, converts to num and pushes
Newlines and spaces separate different elements to be pushed onto the stack individually, but can pushed onto the stack using \
以下に、プログラムの仕組みを説明します。
_'[ --take the first line of input, transfer it to the control stack, and start a for loop
_ 2: --take one more line of input, and duplicate it so that there are two copies
n; --take one copy and put into element n
0> --push a zero onto the stack, remove the zero and the other copy of the input, and compare. A 1 will be placed on the control stack if the input was greater than zero, a 0 otherwise.
[ --starts another for loop if the comparison was true. This loop will be repeated once if the comparison was true and no times if it was false, so it is the same as an IF statement.
n~ --pushes n onto the main stack, then pops it ans replaces it with the contents of n, which is the number stored earlier
+ --takes the number and adds it to the running total, which is contained as the last item on the stack
] --ends the inner for loop
] --ends the outer for loop
` --print the top item (also the only item) on the stack to output