[過去ﾛｸﾞ]
プログラミングのお題スレ Part13 (1002ﾚｽ)
プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
124: デフォルトの名無しさん [sage] 2019/02/12(火) 10:15:35.66 ID:EWuoyvxz 未定義じゃねえだろアホ http://mevius.5ch.net/test/read.cgi/tech/1549160513/124
520: デフォルトの名無しさん [sage] 2019/03/06(水) 08:04:05.66 ID:bBth0ZZS >>515 その出力例だと、タイルの種類は3種類じゃないの？ 1と2を同じだとみなせば、同じ種類と隣接するからダメだろ？ >>516 だと完全に2種類だが。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/520
541: デフォルトの名無しさん [] 2019/03/06(水) 20:51:34.66 ID:Xwbjxxrc お題の面白さに共感しなければ趣味だから解かない。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/541
710: デフォルトの名無しさん [sage] 2019/03/16(土) 01:04:28.66 ID:moiau3OK >>688 もっと簡潔に書けるんだった… >>653 Perl5 use feature current_sub; @is = (['0.1.2', '0.0'], ['1.2.3', '1.3'], ['0.0.0', '0.0']); for (@is) { ($l, $r) = @$_; @l = split'\.', $l; @r = split'\.', $r; $z = sub { my $a = shift @l; my $b = shift @r; (defined $a or defined $b) ? ($a <=> $b or __SUB__->()) : 0 }->(); %d = qw{-1 < 0 == 1 >}; print "$l $d{$z} $r : $z\n"; } 実行結果 ~ $ perl 13_653.pl 0.1.2 > 0.0 : 1 1.2.3 < 1.3 : -1 0.0.0 == 0.0 : 0 http://mevius.5ch.net/test/read.cgi/tech/1549160513/710
758: デフォルトの名無しさん [] 2019/03/23(土) 02:35:34.66 ID:FcxASXew >>746 Common Lisp https://ideone.com/7h7HT4 http://mevius.5ch.net/test/read.cgi/tech/1549160513/758
837: デフォルトの名無しさん [] 2019/04/25(木) 04:26:28.66 ID:D6NtakiX >>831 入出力のエンコードは？ ASCII以外はあるのか？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/837
980: デフォルトの名無しさん [sage] 2019/05/18(土) 11:10:21.66 ID:vBrA8iCH 単射である必要はない。全射でさえあればよい http://mevius.5ch.net/test/read.cgi/tech/1549160513/980
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.034s