Skip to main content
top tip from @ThisSuitIsBlackNot, gracias
Source Link
steve
  • 2.4k
  • 2
  • 16
  • 25

Perl, 99 81 75 51 40 36 2929 27 bytes

sleep(print gmtime."\n"$/);do$0

Perl, 99 81 75 51 40 36 29 bytes

sleep(print gmtime."\n");do$0

Perl, 99 81 75 51 40 36 29 27 bytes

sleep(print gmtime.$/);do$0
thanks to primo for scalar force approach
Source Link
steve
  • 2.4k
  • 2
  • 16
  • 25

Perl, 99 81 75 51 40 3636 29 bytes

sleep(print scalar gmtime,."\n");do$0

Perl, 99 81 75 51 40 36 bytes

sleep(print scalar gmtime,"\n");do$0

Perl, 99 81 75 51 40 36 29 bytes

sleep(print gmtime."\n");do$0
deleted 365 characters in body
Source Link
steve
  • 2.4k
  • 2
  • 16
  • 25

Perl, 99 81 75 51 4040 36 bytes

while(sleep(print scalar gmtime,"\n")){};do$0

sleep printf"%02d:%02d:%02d\n",(gmtime)[2,1,0];do$0

{($s,$n,$h)=localtime(time);printf"%02d:%02d:%02d\n",$h,$m,$s;sleep 1;redo}

while(1){my($s,$n,$h)=localtime(time);printf"%02d:%02d:%02d\n",$h,$m,$s;sleep(1)}

while(1){my($s,$n,$h,$x,$x,$x,$x,$x,$x)=localtime(time);printf"%02d:%02d:%02d\n",$h,$m,$s;sleep(1)}

Perl, 99 81 75 51 40 bytes

while(sleep(print scalar gmtime,"\n")){}

sleep printf"%02d:%02d:%02d\n",(gmtime)[2,1,0];do$0

{($s,$n,$h)=localtime(time);printf"%02d:%02d:%02d\n",$h,$m,$s;sleep 1;redo}

while(1){my($s,$n,$h)=localtime(time);printf"%02d:%02d:%02d\n",$h,$m,$s;sleep(1)}

while(1){my($s,$n,$h,$x,$x,$x,$x,$x,$x)=localtime(time);printf"%02d:%02d:%02d\n",$h,$m,$s;sleep(1)}

Perl, 99 81 75 51 40 36 bytes

sleep(print scalar gmtime,"\n");do$0
reduced more
Source Link
steve
  • 2.4k
  • 2
  • 16
  • 25
Loading
redo and lose my
Source Link
steve
  • 2.4k
  • 2
  • 16
  • 25
Loading
Source Link
steve
  • 2.4k
  • 2
  • 16
  • 25
Loading