プログラミングのお題スレ Part22 (858ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
348(5): デフォルトの名無しさん [sage] 2024/06/01(土) 10:16:34.91 ID:hzaQXY32(1/2) AAS
お題: コロン区切りの時分秒の時刻が与えられるので時分秒をそれぞれ掛け算した結果を表示せよ
例:
04:05:06
120
351: デフォルトの名無しさん [] 2024/06/01(土) 23:31:08.51 ID:oEZc8FHN(1) AAS
>>348
R
外部ﾘﾝｸ:ideone.com
>>349349(4): デフォルトの名無しさん [sage] 2024/06/01(土) 11:08:12.83 ID:hzaQXY32(2/2) AAS
お題: バイト列が与えられる。先頭から解析した場合にバイトが1だったら次の4バイトを読み込んで整数として出力し、バイトが2だったら次のバイトを0が来るまで読み込んで文字列として出力せよ
入力
1 1 0 0 0 2 65 66 67 0 1 128 0 0 0
出力
1ABC128
C (データ識別子は1か2しかないものとし、整数のエンディアンは実行環境依存とする)
外部ﾘﾝｸ:ideone.com
352: 警備員[Lv.19] [] 2024/06/02(日) 04:45:03.04 ID:yi3OE76t(1/2) AAS
>>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:02.42 ID:21u+58W3(1) AAS
>>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:10.23 ID:NjINqn/m(1) AAS
>>348 Perl5
($x = '04:05:06') =~ s/:/*/g;
print eval $x;
373: デフォルトの名無しさん [] 2024/06/19(水) 15:22:47.09 ID:xfTENZQh(1) AAS
>>348 awk
外部ﾘﾝｸ:ideone.com
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.036s