tailsさんと同じ$14$byteで$1$位タイ。やはりdcは強い。

#!perl -p
$_/=2-$_%2
dc -e?d2%2r-/p