PERL 16 баллов:
s ;y 0-9.;eval eval
Используется тот факт, что ASCII <= 32 не считаются
PERL 21 балл:
print 0+ map 1..<>,1..<>
или аналог
print ~~map 1..<>,1..<>