[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
489(1): 2019/03/04(月)11:04 ID:9wLIIjqc(1/3)調 AAS
お題： ２つの任意の英数字からなる芸術的なアスキーアートを出力しろ
490(1): 2019/03/04(月)11:07 ID:9wLIIjqc(2/3)調 AAS
お題： アスキーアートで芸術的な直線を出力しろ
491(1): 2019/03/04(月)12:15 ID:9wLIIjqc(3/3)調 AAS
お題： アスキーアートで芸術的な木のアスキーアートを出力しろ
492: 2019/03/04(月)13:00 ID:enTqHBl5(1)調 AAS
お題： このバカをどうにかしろ
493: 2019/03/04(月)13:06 ID:mOK2oiAk(1)調 AAS
>>489、>>490、>>491
どうぞ……
2chｽﾚ:motenai
494(7): 2019/03/04(月)18:59 ID:R4eMfGlu(1)調 AAS
お題 全角空白区切のCSV
カレントディレクトリにあるCSVファイルを読み込み、指定されたカラム名のデータの合計を求める。
1レコード目にはカラム名がある。
区切り記号は全角空白とする。 データの数字は全てASCII数字だとする。
CSVファイル内のデータ例
カラム1 カラム2 カラム3 カラム4
1,0 2.0 3.0 4.0
2.1 3.1 4.1 5.1
------データ例終わり
出題 カラム3 の合計を求めよ。
解答例 カラム3 = 7.1
495: さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/03/04(月)19:01 ID:wk4fvbO+(1/2)調 AAS
カンマとピリオド間違えたら死ぬぞ。気を付けれ。
496(1): 2019/03/04(月)19:03 ID:rdjSvZ2C(1/3)調 AAS
>>494 間違い
データに 1,0 という間違いがあるけど問題ないだろ。
ついでに、この状態でカラム1の様にデータフォーマットが違う場合には正しくデータエラーを報告せよ。
497(1): さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/03/04(月)19:10 ID:wk4fvbO+(2/2)調 AAS
日本やアメリカでは、ピリオドは文の終わりや小数点として使う。
カンマは文章途中の区切りや複数の項目の区切りに使う。
498: 2019/03/04(月)19:12 ID:rdjSvZ2C(2/3)調 AAS
>>497 問題に関係ないことを言うなよ。
499(1): 2019/03/04(月)19:12 ID:TpCWsYE8(1/3)調 AAS
>>494
awk。-F オプションで指定しているのが全角スペースね。OSやシェルの違いによってはシングルクオーテーションではなくダブルクォーテーションにする必要がある。入力はファイル名指定するか標準入力から読ませる。
awk -F' ' 'BEGIN{getline}{n+=$3}END{print n}'
500: 2019/03/04(月)19:15 ID:TpCWsYE8(2/3)調 AAS
awkはデータフォーマットがおかしくても適当に0ってことにしちゃったりしてエラーにならんのでデータ異常まで調べたいなら他の言語使った方が良いだろうな。
501(1): 2019/03/04(月)19:16 ID:rdjSvZ2C(3/3)調 AAS
>>499 カラム名を指定してよ。カラム名は指定された名前であり固定ではない。
502: 2019/03/04(月)19:22 ID:TpCWsYE8(3/3)調 AAS
>>501
あー。じゃあ後で他の言語で作るか。
503(1): 2019/03/04(月)19:42 ID:0eAiVVhP(1)調 AAS
お題：端末の横幅が与えられるので(*´ω｀*)を端末の中央に表示せよ
504: 2019/03/04(月)20:14 ID:/O719wMt(1)調 AAS
このバカどうにかしろ
あとチンポジ代わりに直せ
505: 2019/03/04(月)21:14 ID:x+RRe849(1)調 AAS
>>503 Ruby
w = 120
printf("%s%s\n", " " * ((w - 10) / 2), "(*´ω｀*)")
506: 2019/03/05(火)01:17 ID:irQmeRjm(1)調 AAS
茨木 保健
貴老沢 風花
鬼塚 海鈴
鬼埜 可恋
儀賀沢 一愛
嫌沢 宮子
己問 彩姫
寺沢 七彩
寿川 瑞紀
樹木山 美咲
宗田 純
女ケ沢 美優
女ケ澤 飛鳥
女鹿沢 祐奈
507(1): 2019/03/05(火)03:28 ID:CZi591h7(1)調 AAS
>>494
Ruby で
require 'csv'
# 全角空白区切りで、ヘッダー有り
options = { :headers => true, :col_sep => " " }
# CSV ファイルを、1行ずつ処理する
puts CSV.foreach( "input.csv", options )
.map{ |row| row[ 2 ].to_f }.inject( :+ )
508: 2019/03/05(火)07:59 ID:0SMIqw+w(1/2)調 AAS
>>507 カラム名サーチが入っていないみたいだけど。
例えば ”カラム3” と言うカラム名が指定されたとして書いてみて。3列目と言うことじゃないからね。
カラム4 カラム2 カラム1 カラム3
かも知れない。
509(1): 2019/03/05(火)08:10 ID:utDz1VTj(1)調 AAS
変な流れが続いていたから、バカっぽいお題をいくつか出した後に一見まともそうなお題のふりして宿題をやってもらおうという腹かと勘ぐってしまう。
510(1): [age] 2019/03/05(火)09:08 ID:BKNc7BtY(1/2)調 AAS
>>509
お前の思いちゃんと伝わったよ
問題解けクズ
511(1): 2019/03/05(火)09:12 ID:DIrFqE8l(1/2)調 AAS
>>510
宿題は自分でやれカス
512: [age] 2019/03/05(火)09:42 ID:BKNc7BtY(2/2)調 AAS
>>511
お前の宿題だが
513: 2019/03/05(火)09:45 ID:DIrFqE8l(2/2)調 AAS
死ね
514: 2019/03/05(火)11:33 ID:7U5lBe0C(1)調 AAS
だから言語制限なしで通すとやっぱネタギレじゃん
515(5): 2019/03/05(火)12:09 ID:KQ31R4yU(1/2)調 AAS
お題１： テトリスタイリング問題を解決しろ
ここでテトリスタイリング問とは任意の図形のアスキーアートを入力すると
全てのテトリスのブロックに隣接するブロックの種類が異なるようにタイリングしたアスキーアートを出力する
問題である
お題２： テトリスタイリングNブロックス問題を解決しろ
ここでこの問題は上の問題でブロックの種類の数Nを最小にする問題である
例：
入力：
****
****
****
出力：
1002
1002
1122
516(3): 2019/03/05(火)12:21 ID:WJ/srpVX(1)調 AAS
>>515
これじゃダメなのか?
1011
1001
1101
517: 2019/03/05(火)12:23 ID:KQ31R4yU(2/2)調 AAS
>>516
それでもええで
518(1): 2019/03/05(火)23:56 ID:0SMIqw+w(2/2)調 AAS
>>515 ボクちゃんわかんない。
何で縦の列は1とか同じ種類が許されてるの？ なんか上から下へとか言う動きを前提にしてるの？
519(3): 2019/03/06(水)01:19 ID:tTGpH/KM(1)調 AAS
>>518
https://upload.wikimedia.org/wikipedia/commons/9/9a/Tetrominoes_letter_oriented.png
片面テトロミノ(画像参照)を回転させて指定の形に詰め込め
ただし、同じテトロミノを隣接させてはいけない。 ってことじゃろ
515の出力例でいうと、
0は画像の水色、1は黄色、2は紫色の奴ってこと
520(1): 2019/03/06(水)08:04 ID:bBth0ZZS(1)調 AAS
>>515 その出力例だと、タイルの種類は3種類じゃないの？
1と2を同じだとみなせば、同じ種類と隣接するからダメだろ？
>>516 だと完全に2種類だが。
521(1): 2019/03/06(水)10:13 ID:Z0o65K/P(1/2)調 AAS
>>520
>>519
522(2): 2019/03/06(水)11:44 ID:cM1JcwP7(1/3)調 AAS
>>521
だからこそ出題例>>515は3種類のブロックを使ってるんだろ？
2種類で出来ていないから問2に対しては不正解では？
523(2): 2019/03/06(水)11:58 ID:OdnfdSEH(1/5)調 AAS
>>522
例がお題２とお題１両方の答えになっているなんてことはどこにも書いてないだろ
例を見ればだれでもどのお題の答えかわかるだろ
524(2): 2019/03/06(水)12:34 ID:cM1JcwP7(2/3)調 AAS
>>523 誰でも解ると言うのは言い過ぎ。 何が正しいのかを示すのが例なんだし。
なんにせよお題の出し方が独断すぎるよ。
テトリスタイリングなんて知らない人にとっては説明不足だし
>>519 の説明があって初めて平面上の回転図形は同じとみなし、裏表の回転は許さないと解るけど。
それでも519のブロックは4個の組み合わせのブロックしかないが、どうして4個固定なのか？ 最大辺の個数を単位とするのか？
この場合は5個固定？
***
***
***
***
***
525: 2019/03/06(水)12:44 ID:OdnfdSEH(2/5)調 AAS
>>524
釣りだろ？
本当にわからないのなら病院に行くレベルｗ
526: 516 2019/03/06(水)12:54 ID:lTLUMkgQ(1)調 AAS
>>523
分からなかった
527: 2019/03/06(水)12:57 ID:FCOQEIBI(1/2)調 AAS
わかっても今のところ解く気は起きない
528: 2019/03/06(水)12:58 ID:Z0o65K/P(2/2)調 AAS
>>522
あなた、前に書き込んでた中卒の人？
529: 2019/03/06(水)13:01 ID:uLgh04dF(1)調 AAS
>>199と>>441が理解できなかったってやつと同一人物なのは分かる
530(1): 2019/03/06(水)13:08 ID:URj2ByGk(1/2)調 AAS
>>524
>どうして4個固定なのか？
テトリスってゲームがあってそれに出てくるブロックが>>519
>>515
>全てのテトリスのブロック
https://ja.wikipedia.org/wiki/%E3%83%86%E3%83%88%E3%83%AA%E3%82%B9
テトリス
>4つの正方形を組み合わせて作られた、片面型テトロミノ状のブロックピース
>（以下の7種、本作ではこれらを「テトリミノ」（Tetrimino）と呼ぶ）
>がフィールド上方からランダムに1種類ずつ落下してくる。
531: 2019/03/06(水)13:09 ID:f/NWPYTA(1)調 AAS
>>441は分からんかった
問題を考えさせてほしい
問題文を考えさせるんじゃなく
532(2): 2019/03/06(水)13:50 ID:cM1JcwP7(3/3)調 AAS
>>530 片面テトリミノの基本は4個だけどこれを使う前提なら、３ｘ５とか4の倍数の面積にならない図形は解けないよね。
聞いてるのは３ｘ５はどうするのと言う話。
533: 2019/03/06(水)14:02 ID:URj2ByGk(2/2)調 AAS
>>532
「解けない」でいいんだろ
534: 2019/03/06(水)16:31 ID:OdnfdSEH(3/5)調 AAS
>>532
この問題は君の思ってる小学校の算数とは違うんだよ
535: 2019/03/06(水)18:11 ID:+4ROOaYr(1)調 AAS
問題の難しさと、問題の曖昧さは関係ないけどな。
難しい問題の条件が曖昧だと鼻から解く気になれない。
536: 2019/03/06(水)18:18 ID:OdnfdSEH(4/5)調 AAS
考えればわかることまでいちいち書かないのは常識
それを曖昧とは言わない
537: 2019/03/06(水)19:39 ID:RlXQ9XDp(1)調 AAS
数学者は常識人
538(1): 2019/03/06(水)19:40 ID:L0cGL7i+(1)調 AAS
当たり前のことでもいちいち全部書くのがこの業界の常識だが
539: 2019/03/06(水)19:57 ID:2Etc0l5z(1)調 AAS
仕様書をやりとりしてみれば如何に他人に解らせることが難しいか理解できると思うけどな。 多分出題者は余り経験していないんだろう。
仕様をいい加減で進めても後で痛い目を見るのは自分。
(最初は完全でないのは当然、打ち合わせで抜けを詰めていけば良い話)
540: 2019/03/06(水)20:41 ID:OdnfdSEH(5/5)調 AAS
>>538
テトリスがなにかなんて自分でググって調べればいいことだろ
そんなことまで面倒みれない
541: 2019/03/06(水)20:51 ID:Xwbjxxrc(1)調 AAS
お題の面白さに共感しなければ趣味だから解かない。
542: 2019/03/06(水)21:21 ID:FCOQEIBI(2/2)調 AAS
そういや安かったのでPS4用のテトリスを何気なく買って連日やってたら慣れてきちゃってレベル15の40ライン消しが楽にできるようになってしまったなあ。
今さらテトリスうまくなってどうすんだ俺w
543: 2019/03/07(木)03:21 ID:QS9GxyX4(1)調 AAS
>>494
Kotlin
https://paiza.io/projects/w5ywqyfGfQpwllH68rmt5A
入力はカラム名の行が最初にあり、次の行からはデータが続き「# カラム名」の行で終わり、
そこで指定したカラム名の列の合計値が出力される。
エラーはデータが数値として解釈できない文字列、項目数がカラム名の数と一致しない行、
同一カラム名があった場合に出る。一度エラーになると # の行まで読み飛ばされる。
544(8): 2019/03/07(木)17:22 ID:bbRk4M8e(1)調 AAS
お題
R言語にandmaginsとうう関数がある。
m行n列の行列を渡すと行ごとの合計と列ごとの合計を追加して
(m+1)行(n+1)列の行列を返す。
同様の関数をつくる。
1 2 3
4 5 6
が
1 2 3 6
4 5 6 15
5 7 9 21
となる
545: 2019/03/07(木)19:35 ID:gyMjU+f2(1)調 AAS
>>544
C++
https://ideone.com/XhFw95
546: 2019/03/07(木)23:35 ID:bSfNx8gZ(1)調 AAS
>>544 Squeak/Pharo Smalltalk
| fn |
fn := [:arr | arr, {arr sum} collect: [:row | row, {row sum}]].
fn value: #(
(1 2 3)
(4 5 6)
).
"=> #(
(1 2 3 6)
(4 5 6 15)
(5 7 9 21)
) "
547(11): 2019/03/08(金)00:35 ID:N66/0TP0(1/2)調 AAS
大文字小文字だけが異なる、ファイル名を見つける
入力
aB.txt
Ab.txt
xx
cd
cD
CD
出力
aB.txt : Ab.txt
cd : cD : CD
548: 2019/03/08(金)04:41 ID:JrzgN4oN(1)調 AAS
#!/bin/sh
infile="aB.txt Ab.txt xx cd cD CD"
for f in ${infile}; do
echo $f $(echo $f | tr [:lower:] [:upper:])
done | awk '
{ save[$2] = save[$2] " : " $1 }
END {
for (i in save) print save[i]
}' | sed 's/^ : //' | sort | awk 'NF > 1 {print}'
549: 2019/03/08(金)09:23 ID:iTwHpxzE(1)調 AAS
>>547 Squeak Smalltalk
| fn |
fn := [:arr |
| groups |
groups := arr groupBy: #asLowercase having: [:group | group size > 1].
groups values collect: #asArray
].
fn value: #('aB.txt' 'Ab.txt' 'xx' 'cd' 'cD' 'CD').
"=> #(('cd' 'cD' 'CD') ('aB.txt' 'Ab.txt')) "
550: 2019/03/08(金)09:47 ID:pv8HlopZ(1)調 AAS
>>547
それはWindowsとかでは試せないのでは？ディレクトリが違うならできるだろうけど。
(まあWindowsでもWSLでUbuntuとか動かせばできるが)
551(1): 547 2019/03/08(金)11:48 ID:N66/0TP0(2/2)調 AAS
同一フォルダ内での、大文字小文字だけが異なるファイル名は、Windows では作れないけど、
Linux では作れてしまうので、それをチェックする目的です
Linuxでも、こういうファイル名は作らない方がよい
552: 2019/03/08(金)16:35 ID:VhFMuL/G(1)調 AAS
>>551
死ね
553: 2019/03/08(金)17:12 ID:qP6cz7Aj(1/2)調 AAS
時々死ねと言うやついるけど同じやつなのか？ いい加減で大人になれ。
554: 2019/03/08(金)18:19 ID:aY8HpC9F(1)調 AAS
イ?
555(1): 2019/03/08(金)18:42 ID:eAQ60MzF(1)調 AAS
お題： １＝２を証明しろ
証明出来ないは無しで
556: 2019/03/08(金)18:49 ID:qP6cz7Aj(2/2)調 AAS
>>555 それは言語によるんじゃないの？ 論理的にはあり得ない。
一般的には、0がFalse でそれ以外がTrueと言うだけでは？
557(1): さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/03/08(金)18:58 ID:8R2ZaOuQ(1)調 AAS
整数のオーバーフロー使えば楽に証明できるけど、それはもはや基礎数学の整数じゃないし。
558: 2019/03/08(金)19:14 ID:2owB+W9f(1/3)調 AAS
>>544 octave
https://ideone.com/JoTcaP
559(5): 2019/03/08(金)19:17 ID:ru9qZk5w(1)調 AAS
お題：
N人の人物がある部屋に出入りしています。
i番目の人は時刻a[i]に入室し、時刻b[i]に退室します。(1 <= a[i] < b[i])
すべての人は入退室時に以下の通り行動します。
・入室時に、照明がOFFならば照明をONにする。
・退室時に、室内に自分以外に誰もいなければ照明をOFFにする。
最初は照明がOFFになっていて室内には誰もいません。
複数の人物が同時に入退室することはないものとします。
照明がONになっている時間の合計を求めなさい。
a={1,3,5}
b={2,4,6}
=> 3
a={1,2}
b={5,6}
=> 5
a={100,1,2}
b={105,3,4}
=> 8
560: 2019/03/08(金)20:42 ID:q/o0JPH8(1)調 AAS
>>364
brainf*ck
>++++++++++<+[,.>.<]
561: 2019/03/08(金)20:42 ID:AweN/YnK(1)調 AAS
★ぁりが?ヾ(｡･ω･｡)ﾉぁりが?★
562(1): 2019/03/08(金)20:54 ID:2owB+W9f(2/3)調 AAS
>>559 ruby
https://ideone.com/yo3mvc
563: 2019/03/08(金)21:22 ID:QMcItLTV(1)調 AAS
>>559 Common Lisp
https://ideone.com/2hHoAC
564(1): 2019/03/08(金)21:55 ID:2owB+W9f(3/3)調 AAS
>>547 ruby
https://ideone.com/faTKf5
565: 2019/03/09(土)08:53 ID:irV15TzB(1)調 AAS
>>410 J
f =: 3 : 0
> , { ;/(,. toupper) y
)
566: 562 2019/03/09(土)09:29 ID:8CAUa/TL(1)調 AAS
>>559 ruby
すこーしすっきり
f = ->a, b {a.zip(b).map {|c| (c.first...c.last).to_a}.inject(:|).size}
↓
f = ->a, b {a.zip(b).map {|c, d| [*c...d]}.inject(:|).size}
567(2): 547 2019/03/09(土)10:58 ID:GVs3bbIF(1)調 AAS
>>564
たった2行とは、素晴らしい！
JavaScript(JS)とか、関数型プログラミングだね
f(&:upcase), f(&:chomp)
関数型でも、こういうように呼ぶ関数名が明確にわかる点では、Ruby はJS をしのぐ！
漏れが以下で作ったけど、手続き型の処理で、10行以上も掛かったw
情けない
Ruby 初心者スレッド Part 65
2chｽﾚ:tech
568: 2019/03/09(土)12:51 ID:C6v7oEvs(1/2)調 AAS
クソみてーな恣意的な記号使いはperl譲りだな
569: 2019/03/09(土)13:17 ID:capoU8RA(1)調 AAS
アンダースコア_はprologの時点であるんじゃね
それに記号なら恣意的だろ
570(1): 2019/03/09(土)19:25 ID:hBO8FWAE(1/3)調 AAS
>>544
Haskell
main = mapM_ print $ newxss ++ [zipWith (+) (newxss!!0) (newxss!!1)]
xss = [[1,2,3],[4,5,6]]
newxss = map (\xs -> xs ++ [sum xs]) xss
571(16): 2019/03/09(土)19:49 ID:R3sqYFdd(1)調 AAS
お題：文字列と数値nが与えられるのでn番目の文字とそれ以外の文字を上下にスライドさせて表示する
入力
abc 2
出力
*b*
a*c
572: 2019/03/09(土)19:57 ID:C6v7oEvs(2/2)調 AAS
お題か出力のどっちかが間違っている
日本語勉強した方がいい
573: 2019/03/09(土)19:58 ID:hBO8FWAE(2/3)調 AAS
>>544,570
任意の数の行列だったか。。。
修正
main = mapM_ print $ newxss ++ [lastxs]
xss = [[1,2,3],[4,5,6],[7,8,9]]
newxss = map (\xs -> xs ++ [sum xs]) xss
lastxs = map sum $ retsu newxss
retsu ([]:xs) = []
retsu xss = map head xss:retsu (map tail xss)
574(1): 2019/03/09(土)20:10 ID:0OOZ8KrR(1)調 AAS
>>557
オーバーフローは数学ですらないだろ。こっちは数学。
宇宙を支えていたのは、驚異のたし算だった
私がこのたし算を知ったのは20歳のころでした。その衝撃は、私の運命を変えるまでの威力を持っていました。
私の大学は2年生で所属学科を決めるシステムになっており、私はアインシュタインに憧れて物理学科に進もうとしていました。
その私が出会ったのがラマヌジャン（1887-1920）です。彼が描いた2つの絵を見た瞬間、私の中で何かが変わりました。
http://jbpress.ismedia.jp/mwimgs/4/b/400/img_4b7f33022b840f792a0324a10b89a24d369437.jpg
http://jbpress.ismedia.jp/articles/-/46939
575: さまよえる蟻人間 ◆T6xkBnTXz7B0 [age] 2019/03/09(土)20:18 ID:XY+I2Bbh(1)調 AAS
>>574
応用数学ではオーバーフローも数学の一種。
576: 2019/03/09(土)20:25 ID:hBO8FWAE(3/3)調 AAS
>>364
Haskell
main = mapM_ (\c -> putStrLn $ c:[]) "hello"
577: 2019/03/09(土)20:38 ID:1xJckQ5D(1)調 AAS
>>544
kotlin
https://paiza.io/projects/cL6xIQA--yDFZ1pjndvzAw
Double型でやったら出力に小数点以下が付加されたが値として間違ってるわけではないのでそのままにする。
578: 2019/03/10(日)01:41 ID:5A3UW8N7(1)調 AAS
>>544 Python
import numpy as np
# 何行何列でも良い
ar =[
[1,2,3,4],
[4,5,6,7],
[7,8,9,10]
]
#縦に足して行を追加
r=np.vstack((ar,np.sum(ar,axis=0)))
#横に足して列を追加
ans=np.hstack((r,np.sum(r,axis=1).reshape((-1,1))))
print('ans=\n',ans)
'''
ans=
[[ 1 2 3 4 10]
[ 4 5 6 7 22]
[ 7 8 9 10 34]
[12 15 18 21 66]]
'''
579(1): 2019/03/10(日)03:08 ID:LqrBe0vy(1)調 AAS
>>571 ruby
s = "abc"
n = 2
t = "*" * s.length
t[n - 1] = s[n - 1]
u = s.clone
u[n - 1] = "*"
puts(t, u)
580: 2019/03/10(日)11:57 ID:e6SI07pl(1)調 AAS
>>571 J
f =: 4 : 0
|: ((,. -.) (<:x) = i. # y ) {"1 '*' ,. y
)
2 f 'abc'
*b*
a*c
581(1): 2019/03/10(日)13:31 ID:vqbsu7fW(1/2)調 AAS
>>571
Haskell
main = do
putStrLn $ seclet "abc" (==) 2
putStrLn $ seclet "abc" (/=) 2
seclet lst func num = seclet' lst func 1 num
where
seclet' [] _ _ _ = []
seclet' (x:xs) f n a | f n a = x: seclet' xs f (n + 1) a
seclet' (_:xs) f n a = '*': seclet' xs f (n + 1) a
582: 2019/03/10(日)13:56 ID:vqbsu7fW(2/2)調 AAS
>>571
>>581
引数の順序入れ替えてmapM_ 使って、main部分を一行にまとめた。
main = mapM_ (putStrLn.seclet "abc" 2) [(==),(/=)]
seclet lst num func = seclet' lst 1 num func
where
seclet' [] _ _ _ = []
seclet' (x:xs) n a f | f n a = x: seclet' xs (n + 1) a f
seclet' (_:xs) n a f = '*': seclet' xs (n + 1) a f
583: 2019/03/10(日)17:19 ID:lsf+n+kn(1/2)調 AAS
>>571 Perl5
($s, $n)= qw{abc 2};
@s = split'',$s;
@t = qw{*} x @s;
$n--;
($s[$n], $t[$n]) = ($t[$n], $s[$n]);
print @t, "\n", @s, "\n";
実行結果
~ $ perl 13_571.pl
*b*
a*c
584: 2019/03/10(日)17:47 ID:lsf+n+kn(2/2)調 AAS
>>544 Perl5
@a = ([1, 2, 3,],
[4, 5, 6]);
use List::Util sum;
push @$_, sum(@$_) for @a;
for $i (0..$#{$a[0]}) {
push @b, sum(map{$a[$_][$i]} 0..$#a)
}
print "@$_\n" for @a;
print "@b\n";
実行結果
~ $ perl 13_544.pl
1 2 3 6
4 5 6 15
5 7 9 21
585: 2019/03/10(日)20:48 ID:z5UigTCL(1/2)調 AAS
>>571 octave
https://ideone.com/fEaJMh
586: 2019/03/10(日)21:12 ID:ObNpfzdX(1)調 AAS
ここっておっさんが多いイメージ
587: 2019/03/10(日)21:16 ID:KcIurEvX(1/4)調 AAS
>>559
Java
https://paiza.io/projects/uoq0pfsAO5vRexzfWg1Mdw?language=java
588(1): 2019/03/10(日)21:20 ID:z5UigTCL(2/2)調 AAS
>>571 ruby
https://ideone.com/6NM2Z2
>>567
String#lines ←これの存在知らなかった
勉強になりました
上下前次1-新書関写板覧索設栞歴
あと 414 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.025s
