[過去ﾛｸﾞ] プログラミングのお題スレ Part21 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
403: デフォルトの名無しさん [] 2023/02/01(水) 22:55:53.80 ID:8+TAxA89(1) AAS
>>401
401(6): デフォルトの名無しさん [] 2023/01/31(火) 06:31:47.98 ID:ozTESx1d(1) AAS
お題
顧客番号・商品番号・小計のCSV を、
商品番号が連番の場合には、その分だけ行数を増やし、
小計を等分割しろ(1円未満は切り捨て)

入力
1,1,100
2,1-3,200

3,1,500
3,2-3,400

出力
1,1,100
2,1,66
2,2,66
2,3,66

3,1,500
3,2,200
3,3,200

空白行に意味はない。見やすくしただけ
PowerShell (入力データはa.txtに保存されているものとし、形式は>>402
402(1): デフォルトの名無しさん [sage] 2023/02/01(水) 03:34:10.44 ID:7Z3xMS0R(1) AAS
>>401

Haskell

外部ﾘﾝｸ:ideone.com

ただし入力はすべての行が
整数,整数,整数
または
整数,整数-整数,整数
のみの形と仮定、エラー処理やそれ以外の形式でが混じっている(空行など)が混じることは想定せず
と同じ)

cat a.txt |% {
　　$d = $_ -split ","
　　$r = @(iex ($d[1] -replace "-", ".."))
　　$r |% {$d[0], $_, [Math]::Floor($d[2] / $r.count) -join ","}
}
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.042s