SAKO, 22 bytes
1)LINII44
STOP1
KONIEC
This is just a port of my answer here.
Almost qualifies for a bonus, but doesn't default to 2, 38 bytes
1)CZYTAJ:N
LINIIENT(×ばつN)
STOP1
KONIEC
Unforunately do get an empty input we would need to read a string instead of a number and parse it, which is just not really worth it even with the bonus.
I did it anyway, 145143 - 25 = 120118 bytes
CALKOWITE:*N,W,I
BLOK(9):N
CZYTAJWIERSZ:N
W=0
*)GDYN(I)=58:2,INACZEJ1
1)W=×ばつ10*I+NW=×ばつ10+N(I)-48
POWTORZ:I=0(1)9
2)×ばつ(W*SGN(1,I)+0*I)
STOP2
KONIEC
Maybe there is a way to shorten the loop, or the operation at label 2.
SAKO, 22 bytes
1)LINII44
STOP1
KONIEC
This is just a port of my answer here.
Almost qualifies for a bonus, but doesn't default to 2, 38 bytes
1)CZYTAJ:N
LINIIENT(×ばつN)
STOP1
KONIEC
Unforunately do get an empty input we would need to read a string instead of a number and parse it, which is just not really worth it even with the bonus.
I did it anyway, 145 - 25 = 120 bytes
CALKOWITE:*N,W,I
BLOK(9):N
CZYTAJWIERSZ:N
W=0
*)GDYN(I)=58:2,INACZEJ1
1)W=×ばつ10*I+N(I)-48
POWTORZ:I=0(1)9
2)×ばつ(W*SGN(1,I)+0*I)
STOP2
KONIEC
Maybe there is a way to shorten the loop, or the operation at label 2.
SAKO, 22 bytes
1)LINII44
STOP1
KONIEC
This is just a port of my answer here.
Almost qualifies for a bonus, but doesn't default to 2, 38 bytes
1)CZYTAJ:N
LINIIENT(×ばつN)
STOP1
KONIEC
Unforunately do get an empty input we would need to read a string instead of a number and parse it, which is just not really worth it even with the bonus.
I did it anyway, 143 - 25 = 118 bytes
CALKOWITE:*N,W,I
BLOK(9):N
CZYTAJWIERSZ:N
W=0
*)GDYN(I)=58:2,INACZEJ1
1)W=×ばつ10+N(I)-48
POWTORZ:I=0(1)9
2)×ばつ(W*SGN(1,I)+0*I)
STOP2
KONIEC
Maybe there is a way to shorten the loop, or the operation at label 2.
SAKO, 22 bytes
1)LINII44
STOP1
KONIEC
This is just a port of my answer here.
Almost qualifies for a bonus, but doesn't default to 2, 38 bytes
1)CZYTAJ:N
LINIIENT(×ばつN)
STOP1
KONIEC
Unforunately do get an empty input we would need to read a string instead of a number and parse it, which is just not really worth it even with the bonus.
I did it anyway, 145 - 25 = 120 bytes
CALKOWITE:*N,W,I
BLOK(9):N
CZYTAJWIERSZ:N
W=0
*)GDYN(I)=58:2,INACZEJ1
1)W=×ばつ10*I+N(I)-48
POWTORZ:I=0(1)9
2)×ばつ×ばつ(W*SGN(1,I)+0*I)
STOP2
KONIEC
Maybe there is a way to shorten the loop, or the operation at label 2.
SAKO, 22 bytes
1)LINII44
STOP1
KONIEC
This is just a port of my answer here.
Almost qualifies for a bonus, but doesn't default to 2, 38 bytes
1)CZYTAJ:N
LINIIENT(×ばつN)
STOP1
KONIEC
Unforunately do get an empty input we would need to read a string instead of a number and parse it, which is just not really worth it even with the bonus.
I did it anyway, 145 - 25 = 120 bytes
CALKOWITE:*N,W,I
BLOK(9):N
CZYTAJWIERSZ:N
W=0
*)GDYN(I)=58:2,INACZEJ1
1)W=×ばつ10*I+N(I)-48
POWTORZ:I=0(1)9
2)×ばつ(W*SGN(1,I)+0*I)
STOP2
KONIEC
Maybe there is a way to shorten the loop, or the operation at label 2.
SAKO, 22 bytes
1)LINII44
STOP1
KONIEC
This is just a port of my answer here.
Almost qualifies for a bonus, but doesn't default to 2, 38 bytes
1)CZYTAJ:N
LINIIENT(×ばつN)
STOP1
KONIEC
Unforunately do get an empty input we would need to read a string instead of a number and parse it, which is just not really worth it even with the bonus.
I did it anyway, 145 - 25 = 120 bytes
CALKOWITE:*N,W,I
BLOK(9):N
CZYTAJWIERSZ:N
W=0
*)GDYN(I)=58:2,INACZEJ1
1)W=×ばつ10*I+N(I)-48
POWTORZ:I=0(1)9
2)×ばつ(W*SGN(1,I)+0*I)
STOP2
KONIEC
Maybe there is a way to shorten the loop, or the operation at label 2.
SAKO, 22 bytes
1)LINII44
STOP1
KONIEC
This is just a port of my answer here.
Almost qualifies for a bonus, but doesn't default to 2, 38 bytes
1)CZYTAJ:N
LINIIENT(×ばつN)
STOP1
KONIEC
Unforunately do get an empty input we would need to read a string instead of a number and parse it, which is just not really worth it even with the bonus.
I did it anyway, 145 - 25 = 120 bytes
CALKOWITE:*N,W,I
BLOK(9):N
CZYTAJWIERSZ:N
W=0
*)GDYN(I)=58:2,INACZEJ1
1)W=×ばつ10*I+N(I)-48
POWTORZ:I=0(1)9
2)×ばつ(W*SGN(1,I)+0*I)
STOP2
KONIEC
Maybe there is a way to shorten the loop, or the operation at label 2.