21/10/14 20:44:21.29 9bkyyR4D.net
>>228
お前が荒らしじゃい！
230:デフォルトの名無しさん
21/10/14 21:40:12.30 KZL2uBrL.net
草
231:デフォルトの名無しさん
21/10/15 01:28:09.50 vumwfiEZ.net
Microsoft を MicroSoft と書くだけで、うまく認識できないというか、インチキくさいというか…
232:デフォルトの名無しさん
21/10/15 01:45:34.33 Q3H9iIco.net
じゃあMinecraftは？
233:デフォルトの名無しさん
21/10/15 01:52:45.18 vumwfiEZ.net
マインクラフト?は初見なので違和感なしでした
234:デフォルトの名無しさん
21/10/15 09:58:59.71 Svg6ZUXs.net
子ども向けならマイクラのコマンドで遊ぶのもいいと思う。んでスクラッチだと思うけどマイクラのワールドにプログラムで動くエージェント召喚して働かせる事もできる。
スクラッチで作ったフローはJavaとPythonで表示されるから、高学年はコード編集して遊んでる。
235:デフォルトの名無しさん
21/10/15 12:09:35.19 W8XYkXKH.net
>>234
なんかMbくさい書き込みだな
236:デフォルトの名無しさん
21/10/15 21:26:36.52 Q3H9iIco.net
スクラッチはJavaじゃなくてJavaScript 製だよ
237:Mb
21/10/16 11:38:31.38 w/Mr+3XW.net
>>231
『プログラミング演習における シンボルの名前付けに対する指導』
（URLﾘﾝｸ(gakkai.univcoop.or.jp)）
とかを読んでからまた来い。
Java に慣れちゃうと、そうなるんだよ。
238:デフォルトの名無しさん
21/10/16 13:06:53.78 2h5t186/.net
>>237
詭弁に過ぎない
固有名詞の話とは関係ない
239:Mb
21/10/16 14:22:23.31 w/Mr+3XW.net
> 詭弁に過ぎない
とかいって逃げる奴が多いから、短文系の BBS は
「便所の落書き」とか言われちゃうんだよなぁ。
そもそも、「固有名詞」じゃなくて、「命名規則」の
話をしているんだが。
「N0013」とか「X0023_05」とかいった命名規則を
強制されてみると、その苦労は感得できると思うが。
240:デフォルトの名無しさん
21/10/16 14:40:46.73 2h5t186/.net
>>231 は固有名詞の書き方について突っ込んでいるのに
君が >> 237 で勝手に命名規則の話をしているだけだよね
241:Mb
21/10/16 16:10:53.50 w/Mr+3XW.net
話を整理しよう。
>>240
> 固有名詞の話とは関係ない
というのは、何の話をしているんだろう。
242:デフォルトの名無しさん
21/10/16 19:22:51.29 BQTsTYeY.net
>>241
痴呆かこいつ
243:デフォルトの名無しさん
21/10/17 11:18:57.50 vSoaWGvQ.net
なんかのJavaクラスに、マイクロソフト実装で処理をするか自前実装で処理をするか切り替えるメソッドがあったとして、
useMicrosoftImplementation(bool)ではなく、
useMicroSoftImplementation(bool)と命名されてたら、
プログラマーの質を疑っちゃうね。固有名詞もちゃんと書けないのかと。
244:Mb
21/10/21 13:57:14.47 JKBkOCuC.net
「荒らしもスレの賑わい（読み筋は「枯れ木も山の賑わい」）」と
いうネット俚諺もあるのだが（あるのか？）、
スレが停滞すると楽しみがなくなっちゃうので、
ザコネタでもいいから投稿があると活気が出そうに
思う。
245:デフォルトの名無しさん
21/10/21 19:39:05.18 rHBxJh+b.net
スレが停滞しているのはMbさんが住み着いたからだぞ
246:Mb
21/10/21 21:45:11.27 JKBkOCuC.net
>>245
まぁ、落ちなきゃいいじゃん（笑）。
墜ちそうになったら、age てくれるひとがいるかもしれない。
確かに書き散らかしたという点では反省するしかないのだが、
なんかしら「まとめ」的なものを提示しないと卑怯だ、
という話はありそうに思っている。
247:デフォルトの名無しさん
21/10/21 21:56:00.63 rHBxJh+b.net
>>246
たしかに
248:デフォルトの名無しさん
21/10/22 01:03:41.86 bIdSm1HR.net
MbはFORTH使えるの？
249:Mb
21/10/22 15:08:47.44 ti2XTd85.net
>>246
つーか、FORTH の処理系から書いた（笑）。
社会人になってから一年目に NEC に就職したのだが、
そのとき防衛関係の「RMA」っつーのの担当だったので
航空自衛隊の各サイトのアベイラビリティを計算しなきゃ
いけないので、それ用の言語を作っちゃったんだわ。
で、そのコンパイラの中間言語として、
FORTH もどきのシステムを組んだことがある。
だから、ネイティブな FORTH を扱った経験はないんだわ。
250:Mb
21/10/22 15:15:31.10 ti2XTd85.net
あと、「Make 10」っていうパズルがあるじゃん。
「0 を含まない四つの異なった数字で、加減乗除だけで
10 を作れる」っていうやつ。
あれの全数解を求めるのに、「いっぺん逆ポーランド記法に
落として、FORTH みたいな仮想機械の言語で片づける」と
いうのはやったことがある。
IT の電卓も根強いファンがいそうだから、「逆ポーランド記法」と
いうのは、けっこう（日本人限定かもしれないが）人気があるのでは
ないかと思う。
251:デフォルトの名無しさん
21/10/22 21:01:51.95 60fAwA3m.net
>>250
そういうのはprolog向け
252:デフォルトの名無しさん
21/10/22 23:19:41.64 5ielnrPe.net
NECに就職してたんだ
凄いじゃん
253:デフォルトの名無しさん
21/10/23 01:07:12.44 rv17aNSC.net
>>250
FORTHがないので手近な言語でやってみますね
まず逆ポーランド記法(RPN)を計算する関数を(加減乗除の)二項演算子のみ対応でこんな感じ？
function execRPN(rpn) {
const stack = [];
for (const x of rpn) {
if (typeof x === 'number') {
stack.push(x);
} else {
if (stack.length < 2) {
return NaN;
}
const a = stack.pop();
const b = stack.pop();
const c = eval(`${b} ${x} ${a}`);
stack.push(c);
}
}
if (stack.length === 1) {
return stack[0];
} else {
return NaN;
}
}
これなら小学生にも作れそう
254:デフォルトの名無しさん
21/10/23 01:18:42.34 rv17aNSC.net
>>250
その「Make 10」パズルを逆ポーランド記法を計算する関数で解くには
総当りで逆ポーランド記法を生成して計算して10になるのを探せばいいんですよね？
加減乗除は重複組み合わせ(combinationsWithReplacement)で使ってよくて
それと数字を合わせて順列(permutations)を生成すれば総当りになりますね
結果10以外にも使えるように引数answerと数字も任意の長さで引数numberListとして
const { combinationsWithReplacement, permutations } = require('iterator-tools');
function make10(answer, numberList) {
const opList = ['+', '-', '*', '/'];
for (const ops of combinationsWithReplacement(opList, numberList.length - 1)) {
const list = numberList.concat(ops);
for (const rpn of permutations(list)) {
const val = execRPN(rpn);
if (val === answer) {
return rpn;
}
}
}
return null;
}
これも順列組み合わせを習った小学生ならすぐ作れそう
255:デフォルトの名無しさん
21/10/23 01:46:38.78 rv17aNSC.net
実行してみました
> make10(10, [1, 3, 3, 7])
[ 1, 7, 3, '/', '+', 3, '*' ]
> make10(10, [8, 4, 7, 3])
[ 8, 3, 7, 4, '/', '-', '*' ]
> make10(10, [6, 9, 6, 5])
[ 6, 9, 6, '-', '/', 5, '*' ]
> make10(10, [9, 6, 7, 4])
[ 9, 7, '+', 4, '/', 6, '+' ]
> make10(10, [3, 6, 6, 9])
null
> make10(10, [0, 0, 0, 0])
null
後ろ2つは解けない問題なのでnullで正解です
解けた方は逆ポーランド記法を普通の記法に戻して検算してみると
(1 + (7 / 3)) * 3 = 10
8 * (3 - (7 / 4)) = 10
(6 / (9 - 6)) * 5 = 10
((9 + 7) / 4) + 6 = 10
ちゃんと解けているようです
いきなり(7 / 3)とか(7 / 4)とか一時的に分数にしちゃうのですね
小学生向けの素敵なプログラミング課題だと思いました
256:デフォルトの名無しさん
21/10/23 08:19:36.04 MzNtagq6.net
ぱって作れちゃう人すごいなあ
257:デフォルトの名無しさん
21/10/23 09:56:07.61 HC6G+u/J.net
大好きな町だから離れられない
258:デフォルトの名無しさん
21/10/23 11:30:40.50 JOLV5TGR.net
頭がポリッシュ
259:Mb
21/10/23 14:15:02.75 sCVE0pd7.net
>>255
「255」っていうのがステキだな。
「Make 10」は、「0 以外の、相異なる 4 つの数字」なので、
[1,3,3,7]や[6,9,6,5]や[0,0,0,0]は考えなくてよくて、
[1,2,3,4]から、[6,7,8,9]までの組合せまでを生成すればいいので、
「もうちょっと頑張りたい」というプログラミング欲を
ソソる部分がある。
で、加減算は交換法則が成立つので、
「1+2+3+4」は、「4+3+2+1」と同じ、と思うと
いろいろチャレンジしたくなる。
さらに、「全部試す」以外に解法がなさそう、というのが
笑える。
「小学生から大学生まで楽しめる問題」として、
もっと普及してくれてもいいと思うのだけれど、
「いちど逆ポーランド記法に落とす」とかいった
技法があるので、あんまりプログラミング教育の現場では
嫌われているように思う。
260:Mb
21/10/23 17:37:35.64 sCVE0pd7.net
>>252
いや、ぜんぜんすごくない（笑）。
NEC っていっても、当時は「住友金属のお荷物」みたいな
扱いで、その中でも「日本電気グループ」と
「日本電気ホームエレクトロニクス」という派閥争いがあって、
NEC 本体は「NES」というソフトウェア部隊があったのだが、
通信系グループは自前のソフトウェア部隊がなかったのだよ。
それで、NEC の通信系グループが立ち上げたソフトウェア会社が
あって、いろいろ社名を考えたんだけど、当時の田中社長が
「そんなんじゃ人が集まらない！」というので、
「日本電気航空宇宙システム株式会社」という会社ができたんだ。
261:Mb
21/10/24 13:31:17.67 XB+g3pLb.net
>>259
単純計算で、1 から 9 までの数の順列は
9 × 9 × 9 × 9。いまどきのパソコンでは、
なんてことのない数字だ。
これを 9 × 8 × 7 × 6 に減らしたい欲がでてきたら、
ちょっとプログラマ向きの人だろう。
逆ポーランド記法で考えると「加減乗除」という
四つの演算があり、「四桁」という縛りがあるので、
数が四つで演算子が三つ。計七個のスタックがあればいい。
で、0 と 1 要素は数字で、６要素は演算子、ということが
わかっている。これを（一意に）網羅できるようなプログラムを
書くのには、どんなプログラミング言語が欲しいだろうか？
で、＋とか×のような、交換法則が成立する演算子については、
ちゃんと順序づけをしてほしい。さらに、「１０になる」という
縛りがあるのだけれど、途中で無限小数になっちゃうとややこしい
ことになってしまう。そうなると、「分数は分数のままに扱える
言語」であってほしい。そうなると、自分のプログラムの中で
作った式を処理系に渡して計算してもらわなくちゃいけないので、
LISP の EVAL 関数のようなものが欲しくなる。
「じゃあ、実際にどうやって実装するか？」まで考えると、
かなり興味深い話だと思う。
262:デフォルトの名無しさん
21/10/24 21:26:11.28 fzWjbDF9.net
↑にProlog向けと書かかれているのはスルー
おっさんのくせに引き出しが少ない
263:デフォルトの名無しさん
21/10/24 21:35:25.40 B/FYyb6u.net
土曜日池袋のジュンク堂行ってきたけどあの規模の書店でもPrologの本なんて１種類しか置いてなかったぞ
しかも質が低い
こんなのどうやって勉強しろってんだ
最初の言語に選ぶなんてとんでもない
264:デフォルトの名無しさん
21/10/24 23:44:50.57 +7vWd4s/.net
>>261
本当にプログラミングできるならばmake 10でいいからコードを出してみてよ
>>262
Prologである必要性はないでしょ
例えばその問題を>>254はJavaScriptで簡単に解いている
265:デフォルトの名無しさん
21/10/25 09:19:14.64 ePvBViKM.net
必要性はないがevalがないと雑多なコードが増えるのは気づけてるのに
組み合わせはいいの？みたいな
266:Mb
21/10/25 14:31:05.06 KAqnC0Vx.net
>>261
> 本当にプログラミングできるならばmake 10でいいからコードを出してみてよ
上げてもいいけど …… 長いよ？
「Java の宿題ここで答えます」スレとかだったらいいんだけど、
これからプログラミングを学ぼうとする人のためのスレである
「【C？】最初の言語に何を選ぶか【Haskell？】」
に、延々とコードを上げるのはどうかなぁ。
まず、「Java の宿題ここで答えます」の昔のスレとかを
見てくれると嬉しく思う。いちおう「Mb」の名前で
出てますから。
> Prologである必要性はないでしょ
竹内さんの「tarai 函数」なんかは、Haskel で書く価値がある。
「入山のアルゴリズム」も、Haskel で実装するなら
必要がなくなるかもしれない。
「必要性」というより、「処理系としてのコンセプトの多様性によって、
『必然性』の話になりつつある」という話じゃないでしょうか。
267:Mb
21/10/30 00:34:09.55 weWqDpIj.net
>>263
> 土曜日池袋のジュンク堂行ってきたけどあの規模の書店でもPrologの本なんて
> １種類しか置いてなかったぞ
どうせ中島さんか小谷さんの本だろう。
Prolog というコンセプトは、そんなに悪いもんじゃないので、
処理系から作ってみるのが正しいアプローチのように思う。
268:Mb
21/11/02 22:21:30.96 8e4/jqzP.net
よく考えたら初心者に不親切でスマンカッタ m(_ _)m。
共立出版の「bit」に、Prolog の処理系のソースコードが
掲載されていたことがあるのだ。
たしか NEC の PC 8801 シリーズ以来の「N88 BASIC」
のコードだったが、いわゆる「Prolog 処理系の動作を
シミュレートするコード」というのは、LISP を使うと
わりと単純なコードに落ちるのだ。ただ、当時は
LISP にしろ（Apple LISP はあったが）Prolog にしろ、
パーソナルコンピュータ環境では実行が難しかったのだ。
それくらい貧弱な処理系環境だったので、
「カット・オペレータ」云々というのが「いかがなものか」
みたいな話があった。
とはいえ、Prolog の基本構想は悪くないと思うので、
Haskell がスレタイに入っている。
高嶺の花だった。
269:デフォルトの名無しさん
21/11/03 18:44:31.12 aqEfnqTc.net
何言ってんだこのバカ
270:Mb
21/11/06 20:58:33.21 annn/Sq7.net
Java は言語処理系のインタプリタを実装するのには
悪くないので、「無ければ作れ」という視点もある。
271:デフォルトの名無しさん
21/11/07 18:12:40.38 B0bDPYGj.net
何言ってんだこのバカ
272:Mb
21/11/10 14:31:50.13 Wl5lGLAU.net
>>271
> 何言ってんだこのバカ
それは、
「何を仰っているのでしょうか？
貴方は知的障害者ですか？」
と同義だと解釈して宜しいでしょうか？
273:デフォルトの名無しさん
21/11/10 14:56:08.69 m325nVH9.net
バカ、アホの定義が地方やコミュニティで異なるからの確認だとおもうけど
BBSだからこそのレトリックなんよ
聞くのが野暮
274:Mb
21/11/10 15:20:18.02 Wl5lGLAU.net
>>273
つ 松本修『全国アホ・バカ分布考 ― はるかなる言葉の旅路 』(新潮文庫)
関西の一部地方の出身者には、「『アホ』や許せるけど『バカ』は許せない！！」
という人がいらっしゃったりもする。そうすると、「馬鹿馬鹿しい」とか
「バカ穴（ネジを切っていない、ワッシャーとビスで止める、位置決め用の
若干大きめの穴）」とかは、一部の関西地方の文化圏の方々に配慮すると、
「使ってはいけない言葉」だということになりますよね？
じゃあ、「バカ騒ぎ」もいけないんだ。「人を馬鹿にする」も
いけないんだ。「馬鹿貝」もいけないんだ。「あんた馬鹿？」は、
「あなたは智的障礙ではありませんか？」と言わなきゃいけないんだ。
あははー。
そんな粗雑な思考をしている人に、プログラミングを語られたくは
ないなぁ。
275:デフォルトの名無しさん
21/11/10 15:23:33.09 ABhSQgxq.net
『アホ』や許せるけど、ってどういう意味？
276:デフォルトの名無しさん
21/11/11 22:03:24.31 vxCXx/v+.net
何かいつの間にかキモいのが寄生してんのな
277:デフォルトの名無しさん
21/11/12 06:51:45.09 og7IUmfh.net
Mbって人気持ち悪い
278:デフォルトの名無しさん
21/11/12 10:03:15.07 fy+vdfIh.net
レスが冗長で誤字も多いしそもそもつまらん
誰からも相手にされないからネット上で承認欲求満たしたいんだろうな
279:デフォルトの名無しさん
21/11/12 15:50:52.59 Kl1RPx7L.net
自分の知識披露したいだけで
有益な議論をしたいわけではなさそうだしな
コード例とか出せないみたいだし(エアプでコード書けない？)
280:デフォルトの名無しさん
21/11/30 00:24:56.16 g6Kn8mJH.net
Rubyやってる女の子はかわいい
281:デフォルトの名無しさん
21/11/30 14:11:08.77 +4eAilPB.net
戸倉彩
282:デフォルトの名無しさん
21/12/08 02:18:29.28 7SPCPFJp.net
最初にやる言語で速さとか気にする必要ない
そんなことでマウント合戦して、これからプログラミング始める
美少女を迷わすようなことを言わないようにしましょう
283:デフォルトの名無しさん
21/12/08 15:51:09.86 5uCKYHG+.net
全く美少女じゃないけど私もrubyから入ったわ
職場のrubyの本借りれたし先輩に詳しい人いたのが大きい
284:デフォルトの名無しさん
21/12/08 21:04:33.81 pzF9gjPk.net
>>281
橋本環奈に似てるね。
285:デフォルトの名無しさん
22/01/19 20:43:02.39 Qtd/3JbQ.net
引数書くのやブロック書くのに括弧を多用する言語は疲れる
286:デフォルトの名無しさん
22/01/19 20:54:02.18 tV3PBnn6.net
でもカッコがある方が
エディタが助けてくれるからなあ
pythonとかタブの位置を合わせるのが大変
287:デフォルトの名無しさん
22/01/20 18:59:46.11 Ty/TufmK.net
# Make10面白いな Elixirの勉強がてらに思わず仕事さぼって全解探索作ってしまったわ
defmodule Make10 do
@nums 1..9 |> Enum.map(&{:num, &1, Integer.to_string(&1)})
@ops [{:plus, "+"}, {:minus, "-"}, {:mul, "*"}, {:div, "/"}]
|> Enum.map(&Tuple.insert_at(&1, 0, :calc))
@initial_stack []
@initial_usednumbers []
@initial_state [{@initial_stack, @initial_usednumbers}]
@accept_duplicated_number false
def do_action({stack, used}, action) do
case {stack, action} do
{_, {:num, val, symbol}} ->
if !@accept_duplicated_number and Enum.member?(used, val) do
{[{{val, 1}, "#{symbol}"} | stack], []}
else
{[{{val, 1}, "#{symbol}"} | stack], [val | used]}
end
{[{{c1_n, c1_d}, exp1} | [{{c2_n, c2_d}, exp2} | tail]], {:calc, op, symbol}} ->
expression = "(#{exp2}#{symbol}#{exp1})"
case op do
:plus -> {[{{c2_n * c1_d + c1_n * c2_d, c1_d * c2_d}, expression} | tail], used}
:minus -> {[{{c2_n * c1_d - c1_n * c2_d, c1_d * c2_d}, expression} | tail], used}
:mul -> {[{{c1_n * c2_n, c1_d * c2_d}, expression} | tail], used}
:div -> {[{{c2_n * c1_d, c2_d * c1_n}, expression} | tail], used}
end
end
end
288:デフォルトの名無しさん
22/01/20 19:00:29.87 Ty/TufmK.net
# 続きだよ
def action_candidates(stepcount_remain, {stack, _}) do
stack_depth = Enum.count(stack)
case stack do
[] -> @nums
[_ | []] -> @nums
_ when stack_depth > stepcount_remain -> @ops
_ -> @nums ++ @ops
end
end
def expand_each_state_node(stepcount_remain, state) do
action_candidates(stepcount_remain, state)
|> Enum.map(&do_action(state, &1))
|> Enum.filter(fn {stack, used} -> !Enum.empty?(used) end)
end
def step_one_action(stepcount_remain, statelist) do
statelist
|> Enum.map(&expand_each_state_node(stepcount_remain, &1))
|> List.flatten()
end
def run(num_of_cards \\ 4, {target_val_n, target_val_d} \\ {10, 1}) do
(num_of_cards * 2 - 1)..1
|> Enum.reduce(@initial_state, &step_one_action(&1, &2))
|> Enum.filter(fn {[{{lastval_n, lastval_d}, expression}], used} ->
lastval_n * target_val_d == target_val_n * lastval_d
end)
# |> Enum.each(fn {[{ {lastval_n,lastval_d} ,expression}] , used} -> IO.puts expression end)
end
end
289:デフォルトの名無しさん
22/01/20 19:02:16.35 Ty/TufmK.net
iex(96)> Make10.run
[
{[{{10, 1}, "(1+(2+(3+4)))"}], [4, 3, 2, 1]},
{[{{10, 1}, "(1*(2+(3+5)))"}], [5, 3, 2, 1]},
{[{{10, 1}, "(1-(2-(3+8)))"}], [8, 3, 2, 1]},
{[{{10, 1}, "(1+((2+3)+4))"}], [4, 3, 2, 1]},
{[{{10, 1}, "(1*((2+3)+5))"}], [5, 3, 2, 1]},
{[{{10, 1}, "((1+(2+3))+4)"}], [4, 3, 2, 1]},
{[{{10, 1}, "((1*(2+3))+5)"}], [5, 3, 2, 1]},
{[{{10, 1}, "(1-((2-3)-8))"}], [8, 3, 2, 1]},
{[{{10, 1}, "(1-((2-3)*9))"}], [9, 3, 2, 1]},
{[{{10, 1}, "((1-(2-3))*5)"}], [5, 3, 2, 1]},
{[{{10, 1}, "((1-(2-3))+8)"}], [8, 3, 2, 1]},
{[{{10, 1}, "(1*((2*3)+4))"}], [4, 3, 2, 1]},
{[{{10, 1}, "((1*(2*3))+4)"}], [4, 3, 2, 1]},
{[{{30, 3}, "((1+(2/3))*6)"}], [6, 3, 2, 1]},
{[{{10, 1}, "(1+(2+(4+3)))"}], [3, 4, 2, 1]},
{[{{20, 2}, "(1/(2/(4*5)))"}], [5, 4, 2, 1]},
{[{{10, 1}, "(1-(2-(4+7)))"}], [7, 4, 2, 1]},
・・・
290:デフォルトの名無しさん
22/01/20 19:05:30.69 Ty/TufmK.net
分数も対応（数字4つで129/8）
iex(102)> Make10.run(4, {129,8})
[
{[{{129, 8}, "((1/8)+(7+9))"}], [9, 7, 8, 1]},
{[{{129, 8}, "(((1/8)+7)+9)"}], [9, 7, 8, 1]},
{[{{129, 8}, "((1/8)+(9+7))"}], [7, 9, 8, 1]},
{[{{129, 8}, "(((1/8)+9)+7)"}], [7, 9, 8, 1]},
{[{{129, 8}, "((3*5)+(9/8))"}], [8, 9, 5, 3]},
{[{{129, 8}, "(3*(6-(5/8)))"}], [8, 5, 6, 3]},
{[{{129, 8}, "((5*3)+(9/8))"}], [8, 9, 3, 5]},
{[{{129, 8}, "((6-(5/8))*3)"}], [3, 8, 5, 6]},
{[{{129, 8}, "(7+((1/8)+9))"}], [9, 8, 1, 7]},
{[{{129, 8}, "((7+(1/8))+9)"}], [9, 8, 1, 7]},
{[{{129, 8}, "(7+(9+(1/8)))"}], [8, 1, 9, 7]},
{[{{129, 8}, "((7+9)+(1/8))"}], [8, 1, 9, 7]},
{[{{129, 8}, "(9+((1/8)+7))"}], [7, 8, 1, 9]},
{[{{129, 8}, "((9+(1/8))+7)"}], [7, 8, 1, 9]},
{[{{129, 8}, "(9+(7+(1/8)))"}], [8, 1, 7, 9]},
{[{{129, 8}, "((9+7)+(1/8))"}], [8, 1, 7, 9]},
{[{{129, 8}, "((9/8)+(3*5))"}], [5, 3, 8, 9]},
{[{{129, 8}, "((9/8)+(5*3))"}], [3, 5, 8, 9]}
]
291:デフォルトの名無しさん
22/01/20 19:13:42.14 Ty/TufmK.net
Prologで書いたら楽そうなところはなかったｗ
292:デフォルトの名無しさん
22/01/20 19:54:16.86 Ty/TufmK.net
ちなみにeval使わず分数計算自前だよ
Elixirも楽しい！
293:デフォルトの名無しさん
22/02/03 03:27:48.02 5caWIEV6.net
Prologって簡単な深さ優先・探索列挙はともかく動的に細かな探索の制御をしようと思うと途端に面倒になるからな
他の言語で書いた方が小回りきくわ、ってなる
実用上、組み合わせの少ない練習問題的な全解探索にしか使えないゆえん
294:デフォルトの名無しさん
22/02/03 10:21:28.73 lrjvvrdU.net
スッキリ書ける俺々プリプロセッサわんさかありそう
295:デフォルトの名無しさん
22/05/16 08:48:09.42 fgDPgjMn.net
Mbは死んだか