抽籤程式

抽籤.wy

吾有一數。曰三。名之曰「抽出人數」。

吾有一術。名之曰「運」。欲行是術。必先得一數。曰「值」。乃行是術曰。
    乃得 Math.ceil(Math.random()*值);
是謂「運」之術也。

吾有一術。名之曰「克隆」。欲行是術。必先得一列。曰「列」。乃行是術曰。
    吾有一列。名之曰「結果」。
    凡「列」中之「物」。
        充「結果」以「物」。
    云云。
    乃得「結果」。
是謂「克隆」之術也。

吾有一術。名之曰「濾」。欲行是術。必先得一列。曰「列」。一物。曰「目標者」。乃行是術曰。
    吾有一列。名之曰「結果」。
    凡「列」中之「物」。
        若「物」不等於「目標者」者。充「結果」以「物」也。
    云云。
    乃得「結果」。
是謂「濾」之術也。

吾有一術。名之曰「擇籤」。欲行是術。必先得一列。曰「籤筒」。乃行是術曰。
    夫「籤筒」之長。名之曰「籤數」。
    施「運」於「籤數」。名之曰「位」。
    夫「籤筒」之「位」。名之曰「中籤者」。
    乃得「中籤者」。
是謂「擇籤」之術也。

吾有一列。名之曰「全名錄」。
充「全名錄」
以「「哆啦 A 夢」」。
以「「野比大雄」」。
以「「源靜香」」。
以「「骨川小夫」」。
以「「剛田武」」。
以「「銅鑼燒」」。

施「克隆」於「全名錄」。名之曰「籤筒」。
吾有一言。曰「「《抽籤結果》」」。書之。
為是「抽出人數」遍。
    若「籤筒」之長等於零者。乃止也。
    施「擇籤」於「籤筒」。名之曰「中籤者」。
    夫「籤筒」。夫「中籤者」。取二以施「濾」。名之曰「新籤筒」。
    昔之「籤筒」者。今「新籤筒」是矣。
    吾有一言。曰「中籤者」。書之。
云云。

云云。