Hebraic Style
Publicado por Danillo Souza (última atualização em 03/11/2009)
[ Hits: 3.811 ]
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.
#! /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;
MyBF - Interpretador de BrainFuck
Algoritmo de Euclides estendido em Perl
Nenhum comentário foi encontrado.
Desktop turbinado: novidades em apps, distros e privacidade no mundo Linux
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Desktop Linux ganha novos apps enquanto IA invade o noticiário
Blender 5.0 Beta, Firefox 144 e avanço da IA dominam o dia no mundo Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Baixar jogos Independentes para Ubuntu [RESOLVIDO] (4)
PIP3 - erro ao instalar módulo do mariadb para o Python (1)
Linux x Plataformas de Trading - um problema (in-)solúvel? (4)