プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

348(5): デフォルトの名無しさん [sage] 2024/06/01(土)10:16 ID:hzaQXY32(1/2)
お題:　コロン区切りの時分秒の時刻が与えられるので時分秒をそれぞれ掛け算した結果を表示せよ

例:
04:05:06
120

---

351: デフォルトの名無しさん [] 2024/06/01(土)23:31 ID:oEZc8FHN(1)
>>348
R
https://ideone.com/x4hIYG

>>349
C (データ識別子は1か2しかないものとし、整数のエンディアンは実行環境依存とする)
https://ideone.com/aJts6n

---

352: 警備員[Lv.19] [] 2024/06/02(日)04:45 ID:yi3OE76t(1/2)
>>348
Perl

bash のコマンドラインから入力して実行(ワンライナー)

$ perl -ne 'if(/(\d+):(\d+):(\d+)/){print $1*$2*$3,"\n"}else{print"入力エラー\n"}'
1:2:3
6
3:4:5
60
04:05:06
120
$

---

354: デフォルトの名無しさん [sage] 2024/06/03(月)13:25 ID:21u+58W3(1)
>>348
Windows のPowershell 上で、Ruby の1-liner を使う

末尾の改行を削除して、: で分割して、
文字列を数値型に変換してから、全ての要素を掛ける。
%Q で、ダブルクォーテーションをエスケープする。つまり、split(":")

echo '01:2:09' | ruby -ne 'puts $_.chomp.split(%Q[:]).map(&:to_i).inject(:*)'

18

---

362: 9 [sage] 2024/06/11(火)14:41 ID:NjINqn/m(1)
>>348 Perl5

($x = '04:05:06') =~ s/:/*/g;
print eval $x;

---

373: デフォルトの名無しさん [] 2024/06/19(水)15:22 ID:xfTENZQh(1)
>>348 awk
https://ideone.com/dMvvZG

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.027s