いろんな言語で宿題 第五編

1 名前：デフォルトの名無しさん [2010/06/19(土) 00:00:38 ] 前スレは512k超えで終了しました。 526 名前：デフォルトの名無しさん mailto:sage [2010/12/19(日) 06:12:51 ] ja.wikipedia.org/wiki/Guarded_Horn_Clauses # 以下の指示に従い、エラストテネスのふるいを使い素数生成を行うプログラムを書きなさい。 # # エラストテネスの篩を実行すると、整数生成と篩の2つのプロセスが生成される。 # 整数生成は指定最大値までの自然数のストリームを生成し、篩はそれをふるいにかけ # 素数のストリームを素数ストリームに返す。 # 整数生成と篩とはそれぞれ並行して動き、整数生成で生成された自然数のストリームは # 引数の変数を介して順次篩に渡される。 # プロセス間の同期は、ストリームの各要素が具体化されるまで待つ、という形で自然に表現される。 # # 整数生成、篩の各プログラムはそれぞれ以下のようになる。 # 整数生成は、自然数のストリームを順次生成し指定最大値を超えたら終了する。 # 篩は、2,3,5,7,..などの各素数の倍数をストリームから取り除く"ふるい"を順に # 生成しながら、求まった素数を順次ストリームの要素として返す。 # 各"ふるい"は変数を介して直列につながれていくため、自然数のストリームから素数のみの # ストリームを求めることができる。 # # 注意.. 漢字の"篩"とかなの"ふるい"を使い分けている。 527 名前：デフォルトの名無しさん mailto:sage [2011/01/14(金) 11:24:45 ] hibari.2ch.net/test/read.cgi/tech/1294061094/358 # [1] 授業単元：プログラミングＣ++入門 # [2] 問題文：問１・以下のクラスを作り、オブジェクトを生成して、全てのメンバ関数を実行せよ。ただし、体力は整数形の変則とする。 # クラス名ねずみ　メンバ変数　名前　種族　体力　メンバ関数　コンストラクタ　自己紹介　体力を上げる　体力を下げる　体力の値を返す # 問２・問１で作ったクラスから、以下のような派生クラスを作り、そのオブジェクトを生成して、派生クラスが持つ全てのメンバ関数を実行せよ。 # ただし、職業はコンストラクタにより、ディズニーキャラクターとせよ。また、自己紹介は名前の他に職業も紹介させよ。 # それから、踊ったら体力が回復するようにせよ。体力の増減量は決めていい。 # 問３・上記の派生クラスおよび期底クラスにおいて、体力の上限を設け、その上限に達した場合、ＩＦ文を使ってそれ以上値が増加しないようにせよ。 # また同様に、体力が負の値にならないようにせよ。そして体力がゼロならば踊れないようにせよ。 # 問４・問３で改良したオブジェクトに対して、ＷＨＩLE文やＦＯＲ文を使って、体力がゼロになって踊れなくなるまで繰り返し躍らせよ。 # 問５・今までの問で作ってきたクラスのオブジェクトを、配列を使って２つ生成せよ。そして、それぞれに異なる名前を与え、全てのメンバ関数を実行せよ。 528 名前：デフォルトの名無しさん mailto:sage [2011/01/24(月) 12:07:59 ] >>526 F# open System.Threading type Msg = int * AsyncReplyChannel<bool> let sift =   MailboxProcessor.Start (fun inbox ->     let rec loop (filters : MailboxProcessor<Msg> list) = async {         let! n = inbox.Receive()         if filters |> List.forall (fun f -> f.PostAndReply(fun r -> (n, r))) then           printfn "素数発見 : %d" n           let filter = MailboxProcessor<Msg>.Start (fun inbox ->             let rec loop'() = async {               let! (m, r) = inbox.Receive()               m % n <> 0 |> r.Reply               return! loop'() }             loop'())           return! loop (filter::filters)         else           return! loop filters }     loop []) let gen maximum =   Async.Start(async {     printfn "2 〜 %d の素数探索開始" maximum     seq {2 .. maximum} |> Seq.iter (fun n ->       sift.Post(n); Thread.Sleep(200))     printfn "素数探索終了" }) gen 100 System.Console.ReadKey() |> ignore 529 名前：デフォルトの名無しさん mailto:sage [2011/01/27(木) 23:15:22 ] ttp://www.itmedia.co.jp/enterprise/articles/0908/01/news001_2.html # # [問題] # 始点、終点の座標と、途中にある円の中心座標、半径が与えられる。 # 始点から終点に移動するとき、円周の線をまたがなければならない回数の最小回数を求めよ。 # ただし、円同士の円周・始点・終点は接触しないものとする。 # 530 名前：デフォルトの名無しさん mailto:sage [2011/01/28(金) 11:25:25 ] >>525 echoサーバ(Port) :- 　　　　　　　　socket(internet,stream,Socket), 　　　　　　　　socket_bind(Socket,Port), 　　　　　　　　socket_listen(Socket), 　　　　　　　　socket_accept(Socket,Host:Port2,NewSocket), 　　　　　　　　open(NewSocket,read,Instream), 　　　　　　　　open(NewSocket,write,Outstream), 　　　　　　　　get_char(Instream,Char), 　　　　　　　　echo(Instream,Outstream,Char), 　　　　　　　　close(Outstream), 　　　　　　　　close(Instream), 　　　　　　　　socket_shutdown(Socket), 　　　　　　　　socket_shutdown(NewSocket). echo(_,_,end_of_file) :- !. echo(Instream,Outstream,Char) :- 　　　　　　　　put_char(Outstream,Char), 　　　　　　　　flush_output(Outstream), 　　　　　　　　get_char(Instream,Char2), 　　　　　　　　echo(Instream,Outstream,Char2). 531 名前：デフォルトの名無しさん mailto:sage [2011/01/31(月) 17:19:57 ] >>529 F# リンク先の回答を移植しただけ let leastBorders xs ys rs xy1 xy2 =   let checkInside (x1, y1, r) (x2, y2) =     pown (x1 - x2) 2 + pown (y1 - y2) 2 <= r * r   Array.zip3 xs ys rs |> Array.sumBy (fun xyr ->     if [xy1; xy2] |> List.map (checkInside xyr) |> List.reduce (<>) then 1 else 0) 532 名前：デフォルトの名無しさん [2011/02/24(木) 22:38:54.50 ] >>525 #! /usr/bin/awk -f #echo server BEGIN { echoC = "/inet/tcp/10000/0/0" while((echoC |& getline) > 0) { print "受理日時: "strftime("%Y年%m月%d日 %H:%M:%S") ": " $0 print "受理: " $0 |& echoC close(echoC) } } 533 名前：532 mailto:sage [2011/02/24(木) 22:40:00.23 ] gawkでしか動かんのでシバンがまずかった。 以下のように訂正。 #! /usr/bin/gawk -f 534 名前：デフォルトの名無しさん [2011/03/26(土) 23:42:54.23 ] テキストボックスに A222BあああA555BえええAおおおB55A454B と入っていたとします。 この文字列の AとBとその間の文字を1セットにして、AとBの間の文字に5が入っていたときだけ、AとBを削除する このようなロジックをつくっていただけないでしょうか？ 535 名前：デフォルトの名無しさん mailto:sage [2011/03/27(日) 01:27:45.06 ] 正規表現が使えると超ラク 正規表現の例は置いておくからテキストボックスからテキスト拾ってきてうんぬんとかは自分でどうにかしろ Ruby 1.9.2 # coding: windows-31J s="A222BあああA555BえええAおおおB55A454B" s.gsub!(/(A5+B)|(B5+A)/, "") puts s 536 名前：デフォルトの名無しさん mailto:sage [2011/03/27(日) 06:06:22.97 ] >>534 % Prolog 'AとBとその間の文字を1セットにして、AとBの間の文字に5が入っていたときだけ、AとB を削除する'(_文字列,_置換文字列) :- 　　　　atom_chars(_文字列,Chars), 　　　　文字ならびの置換(Chars,Chars2), 　　　　atom_chars(_置換文字列,Chars2). 文字ならびの置換([],[]) :- !. 文字ならびの置換(['A'|R1],L) :- 　　　　最初に現れるBの間に5が存在する(R1,L0,R2), 　　　　文字ならびの置換(R2,L2), 　　　　append(L0,L2,L). 文字列ならびの置換([_文字|R1],[_文字|R2]) :- 　　　　文字ならびの置換(R1,R2). 最初に現れるBの間に5が存在する(R1,L0,L2) :- 　　　　append(L0,['B'|L2],R1),!, 　　　　\+(append(_,['A'|_],L0)), 　　　　append(_,['5'|_],L0),!. 537 名前：デフォルトの名無しさん mailto:sage [2011/03/27(日) 06:08:55.06 ] % Prolog 行途中で改行されてしまったので書きなおし。 'AとBとその間の文字を1セットにして、AとBの間の文字に5が入っていたときだけ、AとBを削除する'(_文字列,_置換文字列) :- 　　　　atom_chars(_文字列,Chars), 　　　　文字ならびの置換(Chars,Chars2), 　　　　atom_chars(_置換文字列,Chars2). 文字ならびの置換([],[]) :- !. 文字ならびの置換(['A'|R1],L) :- 　　　　最初に現れるBの間に5が存在する(R1,L0,R2), 　　　　文字ならびの置換(R2,L2), 　　　　append(L0,L2,L). 文字列ならびの置換([_文字|R1],[_文字|R2]) :- 　　　　文字ならびの置換(R1,R2). 538 名前：537 mailto:sage [2011/03/27(日) 06:52:31.59 ] % ごめんなさい。適切でない部分があった。 % Prolog 'AとBとその間の文字を1セットにして、AとBの間の文字に5が入っていたときだけ、AとBを削除する'(_文字列,_置換文字列) :- 　　　　atom_chars(_文字列,Chars), 　　　　'間に5を含むAとBを削除する'(Chars,Chars2), 　　　　atom_chars(_置換文字列,Chars2). '間に5を含むAとBを削除する'([],[]) :- !. '間に5を含むAとBを削除する'(['A'|R1],L) :- 　　　　最初に現れるBの間に5が存在する(R1,L0,R2), 　　　　'間に5を含むAとBを削除する'(R2,L2), 　　　　append(L0,L2,L),!. '間に5を含むAとBを削除する'([_文字|R1],[_文字|R2]) :- 　　　　'間に5を含むAとBを削除する'(R1,R2). 最初に現れるBの間に5が存在する(R1,L0,L2) :- 　　　　append(L0,['B'|L2],R1),!, 　　　　\+(append(_,['A'|_],L0)), 　　　　append(_,['5'|_],L0),!. 539 名前：538 mailto:sage [2011/03/27(日) 07:31:13.78 ] あと、 _置換文字列　を _削除された文字列 に直してください。 540 名前：デフォルトの名無しさん mailto:sage [2011/03/29(火) 14:59:16.06 ] vb.netの勉強をしています。独学です。 [問題] 2値化した画像の輪郭追跡処理をする。 できたら、 (1)getpixel等を使った、時間はかかるが初心者でも理解しやすいもの (2)処理がはやくなるように工夫したもの の2種類作っていただけるとありがたいです。 541 名前：デフォルトの名無しさん mailto:sage [2011/04/08(金) 17:49:29.73 ] javaプログラムの質問儲けつけていただけるでしょうか？ 542 名前：デフォルトの名無しさん mailto:sage [2011/04/08(金) 23:56:31.52 ] 受け付けますがjavaで回答が付くとは限りません あなたに適したスレはおそらくこちら ★★Java質問･相談スレッド144★★ hibari.2ch.net/test/read.cgi/tech/1300950228/ 543 名前：デフォルトの名無しさん mailto:sage [2011/04/09(土) 00:50:47.04 ] >>542 ありがとうございます。 そちらの方で質問しても回答を期待できますか？ 無理してJavaプログラミングの講座を取ったのですが行くなり苦戦しています。 544 名前：デフォルトの名無しさん mailto:sage [2011/04/09(土) 09:27:01.02 ] >>543 「JAVAの宿題片付けます」というようなスレが あったのですが、今は新スレが作られていない ようですね。新学期が始まるとまた作られると 思いますが。 このスレは例えばJAVAの宿題スレから問題を 貰ってきて、別の言語で解答を出し合い、 言語表現の違いを楽しむためのスレです。 545 名前：デフォルトの名無しさん mailto:sage [2011/04/09(土) 13:53:25.28 ] 横入りですが、できましたらJavaで以下をお願いします。 【課題】キーボードから入力された1〜9までを九九にし、 答えを1行に3個ずつ表示する。半角数字以外が入力された場合、 任意のエラーメッセージを表示させること。 【形態】public class Kuku1{で始める 【期限】4月11日 【Ver 】jdk1.6.0_24 【注】変数、if,for,whileまで学習。 単なる九九の計算のプログラムはできるのですが、例えば、3と入力して 3の段の答えだけを表示するやり方、エラーを表示させるやり方、 3つずつというのが全くわかりません。 よろしくお願いします。 546 名前：デフォルトの名無しさん mailto:sage [2011/04/09(土) 14:02:43.86 ] ここは質問スレではないよ？ 547 名前：デフォルトの名無しさん mailto:sage [2011/06/16(木) 04:43:33.80 ] いや質問スレでしょ 548 名前：デフォルトの名無しさん mailto:sage [2011/06/22(水) 18:24:10.69 ] ボールが描画領域内で壁に反射しながら2 次元平面内で 等速直線運動するプログラムをJavaを用いて作成せよ． お願いします。 549 名前：デフォルトの名無しさん mailto:sage [2011/06/22(水) 19:08:30.99 ] 色んな言語なのにjava指定ってのが多いな。。。 javaで宿題スレって無いのか？ 550 名前：デフォルトの名無しさん mailto:sage [2011/06/23(木) 02:33:40.74 ] javaで画像を配列で読み込み、３×３で打ち込んだマスク、フィルタ処理をしてくれるプログラムを作りたいのですが フィルター部分はできたのですが、画像を配列に読み込み書き出す方法が分かりません。 どなたかプログラムしてくれませんか？ 551 名前：デフォルトの名無しさん mailto:sage [2011/06/23(木) 19:16:15.89 ] >>545 % Prolog 'キーボードから入力された1〜9までを九九にし、答えを1行に3個ずつ表示する' :- 　　　　'キーボードから入力された1〜9までを'(_1〜9までの数), 　　　　append(_,[[N1,N2,N3]|R],[[1,2,3],[4,5,6],[7,8,9]]), 　　　　M1 is N1 * _1〜9までの数, 　　　　M2 is N2 * _1〜9までの数, 　　　　M3 is N3 * _1〜9までの数, 　　　　writef('%t %t %t\n',[M1,M2,M3]), 　　　　R = []. 'キーボードから入力された1〜9までを'(_1〜9までの数) :- 　　　　get_line(Line), 　　　　'キーボードからの入力診断'(Line,_1〜9までの数),!. 'キーボードから入力された1〜9までを'(_1〜9までの数) :- 　　　　'キーボードから入力された1〜9までを'(_1〜9までの数). 'キーボードからの入力診断'(Line,_1〜9までの数) :- 　　　　atom_to_term(Line,_1〜9までの数,_), 　　　　integer(_1〜9までの数), 　　　　_1〜9までの数 >= 1, 　　　　_1〜9までの数 =< 9,!. 'キーボードからの入力診断'(Line,_1〜9までの数) :- 　　　　writef('入力された %t からは1〜9までの数が得られません。再入力をお願いします\n',[Line]), 　　　　fail. 552 名前：デフォルトの名無しさん mailto:sage [2011/06/23(木) 21:06:15.20 ] >>549 ざっと見渡した限り、通常の質問スレはあるが 宿題スレや丸投げ系のスレは無さそうだな 553 名前：デフォルトの名無しさん mailto:sage [2011/06/25(土) 16:33:55.70 ] >>549 このスレたったころはJava用の宿題スレあったからね〜 スレ落ちしてから誰も立ててないだけでしょ 554 名前：デフォルトの名無しさん mailto:sage [2011/08/08(月) 05:55:15.47 ] hibari.2ch.net/test/read.cgi/tech/1312201995/143 # [1] 授業単元：情報処理 # [2] 問題文(含コード&リンク)：数値(1~100)を入力し、入力された数の # 平均、標準偏差、最大値、最小値を求めるプログラムを作りなさい。 # # # 不完全な仕様であることを明確に指摘しながら、かつ、問題分が求めている # テータから適切なデータ構造と手順を選択していくことを示すことができるであろうか。 # 555 名前：デフォルトの名無しさん [2011/10/13(木) 10:13:59.94 ] Z80アセンブラで７セグメントLEDに表示できる 簡易電卓をlinux作成したいのですが全くわかりません。 どなたかよろしければプログラムを作成しては いただけませんでしょうか？ よろしくお願いします。 556 名前：デフォルトの名無しさん [2011/10/13(木) 10:17:48.83 ] >>555の続きなのですが RAM EQU 8000H ROM EQU 0000H ORG RAM LED_1: BLOCK 1 LED_2: BLOCK 1 LED_3: BLOCK 1 LED_4: BLOCK 1 XL: BLOCK 1 XH: BLOCK 1 といったような書き方をしたいのですが、 是非宜しくお願いします。 557 名前：デフォルトの名無しさん mailto:sage [2011/10/13(木) 20:02:24.19 ] それだけじゃ入出力のさせ方がわからないよ 558 名前：デフォルトの名無しさん [2011/10/14(金) 00:18:23.46 ] >>557さん 説明不足ですいません。 PIO_INIT: PUSH AF LD A,0CFH OUT (PIO_AC),A LD A,000H OUT (PIO_AC),A LD A,007H OUT (PIO_AC),A LD A,0CFH OUT (PIO_BC),A LD A,00FH OUT (PIO_BC),A LD A,007H OUT (PIO_BC),A LD A,000H LD (LED_1),A LD (LED_2),A LD (LED_3),A LD (LED_4),A POP AF RET といった感じなのですが・・・。 559 名前：デフォルトの名無しさん mailto:sage [2011/10/14(金) 00:32:01.18 ] どのI/Oアドレスが読み/書きでそれぞれどういう働きをするのか 書いてもらわんとわからんよ ビット単位で細かく指定されてる場合も多いし 560 名前：デフォルトの名無しさん mailto:sage [2011/10/14(金) 02:11:03.50 ] >>558 聞きたいのはZ80の文法ではなく、使っている教材の仕様だからね 外観的にはLEDが4つくらいあるだろう事はわかったけど 561 名前：デフォルトの名無しさん [2011/10/14(金) 03:05:41.42 ] すいません。仕様について失念しまして 朝学校で確かめてきます。 　　　　　D7 D6 D5 D4 D3 D2 D1 D0 DS群 　 ▼ ▼ ▲ ▲ ▼ ▲ ▲ ▼ ▼は上下できるスイッチで WRやCLKはボタンで操作するやつです 562 名前：デフォルトの名無しさん [2011/10/14(金) 03:17:31.73 ] >>560さん 558=561です。 マイクロプロセッサは TMPZ84C015Aということまで 自分の持っている資料でわかりました。 563 名前：デフォルトの名無しさん [2011/10/14(金) 18:54:09.36 ] >>555ですが とりあえずプログラムを書いてみたのですが、 LEDに0000が表示されるだけで計算できません。 ttp://uproda.2ch-library.com/lib440220.txt.shtml にうpしたので、どなたかご指摘いただけませんでしょうか。 よろしくお願いします。 564 名前：デフォルトの名無しさん [2011/10/14(金) 19:21:39.38 ] >>563ですが >>560さんからご指摘をうけた 教材の仕様なのですが、 細かい仕様がわからないため iup.2ch-library.com/i/i0447253-1318586664.jpg をうpしました。 DLキーはどちらも1です よろしくお願いします 565 名前：デフォルトの名無しさん mailto:sage [2011/10/14(金) 19:46:41.25 ] 仕様分からないんじゃ誰にもやりようないじゃん･･･ 566 名前：デフォルトの名無しさん [2011/10/14(金) 20:33:26.93 ] >>564です マイクロプロセッサは TMPZ84C015AでZ80CPUを核としてCTC、シリアルI/Oポート（SIO） パラレルI/Oポート（PIO）、CGC、WDTを内蔵してて PIOは２組の独立した8bitポートで、 教材のPIOのI/Oアドレスは ポートA;データレジスタ(01CH) ポートA;コントロールレジスタ(01DH) ポートB;データレジスタ(01EH) ポートA;コントロールレジスタ(01FH) として設定されてます 567 名前：デフォルトの名無しさん mailto:sage [2011/10/14(金) 20:43:59.96 ] そのI/Oポートをどう操作すれば入出力ができるのかが重要なんですが それを割愛されると手を出せませんよ さらっと目を通しましたが、CALL〜RETの中にPOPが紛れ込んでますがそれは大丈夫なんですか？ 568 名前：デフォルトの名無しさん [2011/10/14(金) 20:48:12.13 ] RAMは256kbitまたは32byteの読み書き できるメモリ容量 データバス８本 ポート ・8ビットパラレルポート×2 ・シリアルポート×1 569 名前：デフォルトの名無しさん [2011/10/14(金) 21:19:15.19 ] >>567さん 目を通していただきありがとうございます。 コンパイルは一応通るので、 どこが悪いのかわからなくて・・。 ttp://uproda.2ch-library.com/lib440285.txt.shtml に以前の入出力についてやったことを書きました。 DLキーは1です。 どなたかよろしければプログラムを作成しては いただけませんでしょうか？ よろしくお願いします。 570 名前：デフォルトの名無しさん [2011/10/15(土) 02:46:06.58 ] あ 571 名前：デフォルトの名無しさん [2011/10/17(月) 10:42:31.88 ] ttp://uproda.2ch-library.com/lib441387.txt.shtmlを Z80アセンブラで７セグメントLEDに表示できる 簡易電卓をlinux作成したいのですが全くわかりません ttp://uproda.2ch-library.com/lib441388.txt.shtml もご参考によろしくお願いします。 572 名前：デフォルトの名無しさん mailto:sage [2011/10/18(火) 03:11:02.34 ] >>571 どうやら I/O は 　・PIOポートA ⇒ 7Seg LED (4連 = 16bit分) 　・PIOポートB ⇒ キー（トグルSW？） (4キー * 4連 = 16bit分) って事っぽいね。入出力共に、I/O １回で 4bit みたいだから、完成までには少なくとも 　1. 4bit (LED 1つ分) 出力するサブルーチンを作成 　2. 1. を４回繰り返して 16bit (全 LED 分) 出力するサブルーチンを作成 　3. キーから 4bit (キー１連分) 読み込むサブルーチンを作成し、2. を使って出力テスト 　4. 3. を４回繰り返して 16bit (全キー分) 読み込むサブルーチンを作成し、2. を使って出力テスト 　5. 足し算実装 　6. 引き算実装 　7. 掛け算実装 　8. 割り算実装 位のステップは踏むと思うんだけど、どこまで出来てんの？ ちなみに、>555と同一人物？ 573 名前：572 mailto:sage [2011/10/18(火) 17:06:20.95 ] 2. のサブルーチンは、ベタに書くなら、きっとこんな感じなんだろうね。 ttp://ideone.com/0MBs5 4. がこんな感じ。 ttp://ideone.com/Ze2EN で、これだけだと激烈に使いづらいので、16bit入出力ルーチンなんかもきっと書くんだろうね。 ttp://ideone.com/tZGIi ttp://ideone.com/liM6n おっと、俺は教材を見たことが無ければ、そもそも 574 名前：デフォルトの名無しさん mailto:sage [2011/10/18(火) 17:08:23.28 ] そもそもZ80のアセンブラ自体組んだことが無いから、 動かなくたって知らんよ。 575 名前：デフォルトの名無しさん mailto:sage [2011/10/24(月) 22:14:16.69 ] 学校で宿題が出ました、助けて下さい＞＜ 実行すると下記のような動作をするバッチファイルスクリプトを作成したいです。 よろしくお願いいたします。 実行するバッチファイルが現在存在するディレクトリにある全てのテキストファイルを書き換えるバッチを作成しなさい。 テキストファイルの中に、pass = "C:\Users\users\Documents\workspace\test.txt"というような パスを変数に代入する記述があった場合 そのパスの部分を、pass = "現在のバッチファイルの存在するディレクトリ\test.txt" という風にディレクトリ名だけを（ファイル名は書き換えない）書き換えるバッチを作成しなさい。 576 名前：デフォルトの名無しさん [2011/10/29(土) 23:55:49.97 ] 集合で、条件を満たす部分集合の数を数える計算をＣ言語かwxmaximaでやりたいと思ってます。 例えば３個の要素からなる集合{a,b,c}でa,b,cは０〜２４の任意の数をとるとします。 また一方で{0+i,3+i}(i<=24,i++)のものをredと定義します。 そして、{a,b,c}の中で部分集合{a,b}{b,c}{c,a}がすべてredであるような{a,b,c}の数はいくつあるか計算する方法を教えてください。 577 名前：デフォルトの名無しさん mailto:sage [2011/10/30(日) 04:00:48.12 ] >>576 Haskellで、その問題をそのまま書いてみたけど、空リスト（空集合）が返ってきたぞ [[a,b,c]| a <- [0..24], b <- [0..24], c <- [0..24], isRed a b, isRed b c, isRed c a] isRed i i' | i <= 24 && i' == (i+3) = True isRed _ _ = False 578 名前：デフォルトの名無しさん mailto:sage [2011/10/30(日) 04:27:55.17 ] 単純に考えても、{a,b}, {b,c}でa < b < cが確定するのに、それを満たしつつc < aを満たすのは不可能。 (c < a?) < b < c 579 名前：デフォルトの名無しさん [2011/12/04(日) 11:12:03.99 ] P型記述子によるフーリエ変換をするプログラムがまったくできずに困っています どなたか教えていただけないでしょうか 580 名前：デフォルトの名無しさん mailto:sage [2011/12/05(月) 18:30:04.17 ] >>575 全然関係ないがPathな 581 名前：デフォルトの名無しさん mailto:sage [2011/12/05(月) 18:30:30.32 ] って一ヶ月以上前かよ 582 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/03/30(金) 10:58:57.35 ] toro.2ch.net/test/read.cgi/tech/1332279659/ あたりから問題もらったらいい。Prologはともかく、関数型言語などの プログラム例を見たい。 583 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/01(日) 18:36:33.08 ] では、toro.2ch.net/test/read.cgi/tech/1332279659/15 をF#で。 ideone.com/vTKlA 584 名前：デフォルトの名無しさん mailto:sage [2012/04/14(土) 12:51:17.95 ] toro.2ch.net/test/read.cgi/tech/1332279659/39 >タンピンリャンペーコーを判別せよ をF#で。 ideone.com/r2HEf 585 名前：デフォルトの名無しさん mailto:sage [2012/05/23(水) 06:59:12.42 ] >>584 麻雀やらないので、役は今ひとつ理解できないのだが、大体こんな感じ。 nojiriko.asia/prolog/ironnagengo5_40.html

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef