Skip to main content
Code Golf

Return to Answer

Shorten code, fix modulo.
Source Link
Acrimoris
Acrimoris
  • 461
  • 2
  • 7

SAKO, 127 116116 85 bytes

CZYTAJ:A F=0 **1)GDYMODF=F+0*MOD(ENT(A),ENT(V)=0:1,INACZEJ2 1)F=F+1 2)POWTORZ:V=1(1)A GDYF=2:9,INACZEJ0 9)TEKST DRUKUJ(1  ,0)TEKST 0:F-2 STOP0STOP1 KONIEC

I used here 0 for a falsytruthy value and 10any other number for a truthyfalsy one.

SAKO, 127 116 bytes

CZYTAJ:A F=0 *)GDYMOD(A,V)=0:1,INACZEJ2 1)F=F+1 2)POWTORZ:V=1(1)A GDYF=2:9,INACZEJ0 9)TEKST 1  0)TEKST 0 STOP0 KONIEC

I used here 0 for a falsy value and 10 for a truthy one.

SAKO, 127 116 85 bytes

CZYTAJ:A F=0 *1)F=F+0*MOD(ENT(A),ENT(V)) POWTORZ:V=1(1)A DRUKUJ(1,0):F-2 STOP1 KONIEC

I used here 0 for a truthy value and any other number for a falsy one.

Shortened code.
Source Link
Acrimoris
Acrimoris
  • 461
  • 2
  • 7

SAKO, 127127 116 bytes

CZYTAJ:A GDYA>2:4,INACZEJ3 3)GDYA=2:6,INACZEJ0F=0 *4*)GDYMOD(A,V)=0:01,INACZEJ5INACZEJ2 51)F=F+1 2)POWTORZ:V=2V=1(1)A-1 6GDYF=2:9,INACZEJ0 9)TEKST 1 0)TEKST 0 STOP0 KONIEC

I used here 0 for a falsy value and 10 for a truthy one.

SAKO, 127 bytes

CZYTAJ:A GDYA>2:4,INACZEJ3 3)GDYA=2:6,INACZEJ0 *4)GDYMOD(A,V)=0:0,INACZEJ5 5)POWTORZ:V=2(1)A-1 6)TEKST 1 0)TEKST 0 STOP0 KONIEC

I used here 0 for a falsy value and 10 for a truthy one.

SAKO, 127 116 bytes

CZYTAJ:A F=0 *)GDYMOD(A,V)=0:1,INACZEJ2 1)F=F+1 2)POWTORZ:V=1(1)A GDYF=2:9,INACZEJ0 9)TEKST 1 0)TEKST 0 STOP0 KONIEC

I used here 0 for a falsy value and 10 for a truthy one.

Source Link
Acrimoris
Acrimoris
  • 461
  • 2
  • 7

SAKO, 127 bytes

CZYTAJ:A GDYA>2:4,INACZEJ3 3)GDYA=2:6,INACZEJ0 *4)GDYMOD(A,V)=0:0,INACZEJ5 5)POWTORZ:V=2(1)A-1 6)TEKST 1 0)TEKST 0 STOP0 KONIEC

I used here 0 for a falsy value and 10 for a truthy one.