http://ja.doukaku.org/lang/dc/Latest comments for language 'dc' on doukaku.org(long)jaSat, 22 Nov 2008 20:36:25 -0000http://ja.doukaku.org/comment/2909/ <a href="http://ja.doukaku.org/40/">与えられた数字のケタ数</a> (<a href="http://ja.doukaku.org/40/nested/">Nested</a> <a href="http://ja.doukaku.org/40/flatten/">Flatten</a>) <hr> <p>いまごろだが問題を読み違えていたことに気付いたので訂正(一行目)。前のマクロでは位と最高位の数字を取り出していた。また、その目的だったとしても前の投稿は冗長だったので短かくしたものをついでに(二行目)。以下は実行例。数字のみの行は出力。 </p> <pre><code>2469 ldxf 1000 4 c _34567 ldxf 10000 5 c 2469 lcxf 1000 2 </code></pre><p>言語一覧へのdcの追加ありがとうございます。 </p> <hr> <table><tr><td class="linenos"><pre>1 2</pre></td><td class="code"><div class="highlight"><pre>[Zd1-10r^]sd [_1*]ss[d0&gt;sdZ1-10r^Sxlx/Lx]sc </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/dc/"> dc </a>] [<a href="http://ja.doukaku.org/comment/2909/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/2909/http://ja.doukaku.org/comment/2798/ <a href="http://ja.doukaku.org/55/">立方根の計算</a> (<a href="http://ja.doukaku.org/55/nested/">Nested</a> <a href="http://ja.doukaku.org/55/flatten/">Flatten</a>) <hr> <pre class='compact'></pre> <hr> <table><tr><td class="linenos"><pre>1</pre></td><td class="code"><div class="highlight"><pre>[_1*]ss[q]sq[d2*rd*lar/+3/ddd**la-d0&gt;sld&gt;qlrx]sr[14kd0=q.1ddd*d**d**sddsa10/lrx]sc </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/dc/"> dc </a>] [<a href="http://ja.doukaku.org/comment/2798/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/2798/http://ja.doukaku.org/comment/2795/ <a href="http://ja.doukaku.org/55/">立方根の計算</a> (<a href="http://ja.doukaku.org/55/nested/">Nested</a> <a href="http://ja.doukaku.org/55/flatten/">Flatten</a>) <hr> <p>dcのマクロ。dcを起動して投稿のマクロを入力後、例えば以下のようにすると三乗根を計算する。 </p> <pre><code>10 lcxp </code></pre><p>この問題では1000未満という条件があるので大丈夫だが、あまり大きい数を入れるとSegmentation faultで落ちる。自分を呼び出すことで繰り返しを実現しているので呼び出しが深くなることが問題と思われる。 </p> <hr> <table><tr><td class="linenos"><pre>1</pre></td><td class="code"><div class="highlight"><pre>[_1*]ss[q]sq[d2*rd*lar/+3/ddd**la-d0&gt;sld&gt;qlrx]sr[13k.1d*dd*d**sddsa10/lrx]sc </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/dc/"> dc </a>] [<a href="http://ja.doukaku.org/comment/2795/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/2795/http://ja.doukaku.org/comment/2557/ <a href="http://ja.doukaku.org/40/">与えられた数字のケタ数</a> (<a href="http://ja.doukaku.org/40/nested/">Nested</a> <a href="http://ja.doukaku.org/40/flatten/">Flatten</a>) <hr> <p>dcのマクロで。投稿のマクロを入力後、例えば次のように入力するとスタックのトップ二つに結果がプッシュされているのが見える。 </p> <pre><code>2469 ldxf </code></pre><p>入力は負の数でも良い。dcでは負数はマイナス記号ではなくアンダースコアで指定する。 </p> <pre><code>_34567 ldxf </code></pre> <hr> <table><tr><td class="linenos"><pre>1</pre></td><td class="code"><div class="highlight"><pre>[_1*]sn[Ll10r^q]sq[d10&gt;q10/Ll1+sllax]sa[d0&gt;n0sllax]sd </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/dc/"> dc </a>] [<a href="http://ja.doukaku.org/comment/2557/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/2557/http://ja.doukaku.org/comment/2496/ <a href="http://ja.doukaku.org/49/">隣り合う二項の差</a> (<a href="http://ja.doukaku.org/49/nested/">Nested</a> <a href="http://ja.doukaku.org/49/flatten/">Flatten</a>) <hr> <p>UNIXコマンドのdcのマクロで作ってみた。dcを起動して投稿のマクロを入力した後、 </p> <pre><code>3 1 4 1 5 9 2 6 5 ldxf </code></pre><p>とすると求めた差の数列がスタックに入っている様子が表示される。 </p> <hr> <table><tr><td class="linenos"><pre>1</pre></td><td class="code"><div class="highlight"><pre>[q]sq[z1=qSslax]sa[lsr-lc1-sclc1=qLslbx]sb[zsclaxlbx]sd </pre></div> </td></tr></table> <div align = "right" style="margin-right: 1em;"> [<a href="http://ja.doukaku.org/lang/dc/"> dc </a>] [<a href="http://ja.doukaku.org/comment/2496/download/"> download code </a>] </a>] </div> <hr> http://ja.doukaku.org/comment/2496/