diff options
| -rw-r--r-- | challenge-028/paulo-custodio/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-028/paulo-custodio/perl/ch-2.pl | 22 | ||||
| -rw-r--r-- | challenge-028/paulo-custodio/python/ch-2.py | 2 | ||||
| -rw-r--r-- | challenge-028/paulo-custodio/t/test-1.yaml | 4 |
4 files changed, 16 insertions, 16 deletions
diff --git a/challenge-028/paulo-custodio/perl/ch-1.pl b/challenge-028/paulo-custodio/perl/ch-1.pl index 40749c06b2..cb66cbf59c 100644 --- a/challenge-028/paulo-custodio/perl/ch-1.pl +++ b/challenge-028/paulo-custodio/perl/ch-1.pl @@ -12,8 +12,8 @@ use Modern::Perl; my $file = shift or die "Usage: $0 file\n"; if (-T $file) { - say "The file content is ascii."; + say "The file content is ascii."; } else { - say "The file content is binary."; + say "The file content is binary."; } diff --git a/challenge-028/paulo-custodio/perl/ch-2.pl b/challenge-028/paulo-custodio/perl/ch-2.pl index 56e995663d..6664df0349 100644 --- a/challenge-028/paulo-custodio/perl/ch-2.pl +++ b/challenge-028/paulo-custodio/perl/ch-2.pl @@ -88,19 +88,19 @@ my $CLEAR = "\e[H\e[2J"; my $HOME = "\e[H"; sub banner { - my($text) = @_; - for my $row (0 .. $#{$chars{' '}}) { - for my $c (split(//, $text)) { - print $chars{$c}[$row]; - } - print "\n"; - } + my($text) = @_; + for my $row (0 .. $#{$chars{' '}}) { + for my $c (split(//, $text)) { + print $chars{$c}[$row]; + } + print "\n"; + } } print $CLEAR; while (1) { - my $time = strftime("%H:%M:%S", localtime(time)); - print $HOME; - banner($time); - usleep(500*1000); + my $time = strftime("%H:%M:%S", localtime(time)); + print $HOME; + banner($time); + usleep(500*1000); } diff --git a/challenge-028/paulo-custodio/python/ch-2.py b/challenge-028/paulo-custodio/python/ch-2.py index 51771c3ad9..a96d8442f9 100644 --- a/challenge-028/paulo-custodio/python/ch-2.py +++ b/challenge-028/paulo-custodio/python/ch-2.py @@ -9,7 +9,7 @@ from datetime import datetime import time -chars = { +chars = { ' ': [" ", " ", " ", diff --git a/challenge-028/paulo-custodio/t/test-1.yaml b/challenge-028/paulo-custodio/t/test-1.yaml index 866183cedc..764f673b5c 100644 --- a/challenge-028/paulo-custodio/t/test-1.yaml +++ b/challenge-028/paulo-custodio/t/test-1.yaml @@ -1,9 +1,9 @@ - setup: system("gcc -otest test.c")==0 - cleanup: + cleanup: args: test.c input: output: The file content is ascii. -- setup: +- setup: cleanup: unlink("test.o", "test") args: test input: |
