始めてのdc。これ楽しい。

それぞれ最短タイ。

dc -e?skd2rlk-^r0lk1-^*-n
print-(<>=~$"==$')*$`+2**($`-$')