結果

問題 No.8064 う　し　た　ぷ　に　き　あ　く　ん　笑
ユーザー trineutrontrineutron
提出日時 2020-04-01 23:11:30
言語 Haskell
(9.10.1)
結果
AC  
実行時間 16 ms / 2,000 ms
コード長 578 bytes
コンパイル時間 10,440 ms
コンパイル使用メモリ 172,160 KB
実行使用メモリ 7,936 KB
最終ジャッジ日時 2024-06-27 12:34:51
合計ジャッジ時間 11,795 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 47
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff # 

main=interact$concatMap f
f 'a'="う　し　"
f 'b'="う　あ　"
f 'c'="ん　笑　"
f 'd'="た　ぷ　"
f 'e'="く　ん　"
f 'f'="ぷ　に　"
f 'g'="し　き　"
f 'h'="あ　く　"
f 'i'="う　く　"
f 'j'="あ　笑　"
f 'k'="う　ん　"
f 'l'="し　ぷ　"
f 'm'="う　き　"
f 'n'="く　笑　"
f 'o'="う　笑　"
f 'p'="に　き　"
f 'q'="ぷ　笑　"
f 'r'="た　き　"
f 's'="た　ん　"
f 't'="し　あ　"
f 'u'="し　ん　"
f 'v'="う　う　"
f 'w'="う　た　"
f 'x'="き　笑　"
f 'y'="に　く　"
f 'z'="笑　笑　"
f _=""
0