Yukicoder No.446 ゆきこーだーの雨と雪 (1)

implementation

python 愚直

#!/usr/bin/env python3
a = input()
b = input()
try:
    assert a == str(int(a)) and 0 <= int(a) <= 12345
    assert b == str(int(b)) and 0 <= int(b) <= 12345
    result = 'OK'
except:
    result = 'NG'
print(result)

perl $48$byte

/^0.|[^0-9
]/||$_>12345?$a=NG:0for<>;print$a||OK

反省

以下はtailsさんの$39$byte perl解(http://yukicoder.me/submissions/131308)。

print grep(/^0.|\pL/|$_>12345,<>)?NG:OK

大敗したのでちゃんと書く:

• grep http://perldoc.perl.org/functions/grep.html
  • block/exprとlistを取って条件を満たすやつだけ切り出す。fliterやselect
  • 結果をintとして見ると存在性の確認に
• \pL http://perldoc.perl.org/perlunicode.html#Unicode-Character-Properties
  • letterに一致する
  • \p{Prop}に対し$1$文字Prop Lを与えた形
  • 他にもLuとかNとかある: http://perldoc.perl.org/perlunicode.html#General_Category