[過去ﾛｸﾞ]
プログラミングのお題スレ Part13 (1002ﾚｽ)
プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
908: デフォルトの名無しさん [sage] 2019/05/14(火) 23:52:44 ID:AtHJrRxM >>877 Squeak Smalltalk | fn | fn := [:str | ((str lines collectWithIndex: [:line :lIdx | (line reject: #isSeparator) asArray collect: [:chr | {chr. (line indexOf: chr) - 1. lIdx - 1}]] ) concatenation select: #notEmpty) asStringWithCr ]. fn value: 'a b c d' "=> '#($a 0 0) #($b 2 0) #($c 4 0) #($d 0 2)' " http://mevius.5ch.net/test/read.cgi/tech/1549160513/908
909: デフォルトの名無しさん [sage] 2019/05/15(水) 01:06:44 ID:tCUIeJeC >>908 smalltalk って全く知らないけど、最後が出力のつもり？ だったらお題の出力フォーマットと似ても似つかないじゃん。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/909
911: デフォルトの名無しさん [sage] 2019/05/15(水) 04:50:48 ID:TsVBVaTo >>877 Squeak/Pharo Smalltalk 出力はともかく同行に同文字があるとダメだった^^;ので>>908 差し替え | fn | fn := [:str | ((str lines collectWithIndex: [:line :lIdx | (line asArray collectWithIndex: [:chr :cIdx | {chr. cIdx - 1. lIdx - 1}] ) reject: [:each | each first isSeparator]] ) concatenation select: #notEmpty thenCollect: [:each | '[{1}, {2}, {3}]' format: each]) asStringWithCr ]. fn value: 'a b c d' "=> [a, 0, 0] [b, 2, 0] [c, 4, 0] [d, 0, 2] " http://mevius.5ch.net/test/read.cgi/tech/1549160513/911
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.035s