Hebraic Style
Lê a quantidade de linhas informada e as escreve alinhadas a direita na tela para visualização e grava em um arquivo com essa mesma formatação.
Esse era um dos exercícios de uma maratona de programação, não lembro de onde, mas na maratona era pra ser feito em C.
Esse era um dos exercícios de uma maratona de programação, não lembro de onde, mas na maratona era pra ser feito em C.
Descrição
Lê a quantidade de linhas informada e as escreve alinhadas a direita na tela para visualização e grava em um arquivo com essa mesma formatação.
Esse era um dos exercícios de uma maratona de programação, não lembro de onde, mas na maratona era pra ser feito em C.
Esse era um dos exercícios de uma maratona de programação, não lembro de onde, mas na maratona era pra ser feito em C.
#! /usr/bin/perl
my @a;
print "Escrever quantas linhas?: ";
$ln = <STDIN>;
chomp $ln;
system "clear";
open(A, ">>hebraic.txt");
for ($i = 0 ; $i < $ln ; $i++) {
$x = <STDIN>;
push(@a, $x);
system "clear";
foreach $y (@a) {
my $c = length $y;
print " " x (80 - $c) . $y;
}
}
foreach (@a) {
my $c = length $_;
print A " " x (80 - $c) . $_;
}
close(A);
exit;