challenge-121/colin-crain/raku/ch-1.raku


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env perl6
#
#
#       121-that-ones-upside-down.raku
#
#
#
#       © 2021 colin crain
## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##


unit sub MAIN ( Int $num, Int $pos ) ;


say $num +^ 2**($pos-1);