Vraag : Vereis een manuscript om een veranderlijk aantal lijnen te drukken, elk die een verhogend aantal gebieden bevatten

Hallo,

I behoeftehulp met een manuscript.  Perl, awk, shell, is niet aan me van belang.  Hier is details

Must neemt één argument, dat een argument number.

The bepaalt numer van lijnen aan druk zal zijn.  Het eerste gebied van de lijn is het lijnaantal.  Elke lijn zal veelvoudige „verslagen“ hebben, met elk verslag die 3 gebieden hebben, die variërende afbakeningen gebruiken.  De eerste lijn zal één verslag hebben, en die elke opeenvolgende lijn zal het aantal verslagen met één verhogen, tot het aantal tot de output script.

Sample:

1|123; 456; 789
2|123; 456; 789~123; 456; 789
3|123; 456; 789~123; 456; 789~123; 456~789
4|123; 456; 789~123; 456; 789~123; 456~789~123; 456; />I behoefte 789


The officieel van belang niet.  Zij zouden hard constanten kunnen worden gecodeerd of een random number (minder dan 1000) hulp

Any worden gewaardeerd!

Thanks!!

 

Antwoord : Vereis een manuscript om een veranderlijk aantal lijnen te drukken, elk die een verhogend aantal gebieden bevatten

Hier is de gewijzigde code…
1:
2:
3:
4:
5:
6:
7:
8:
9:

#! /usr/local/bin/perl
strikt gebruik;
gebruiks waarschuwingen;
mijn $num = verschuiving of matrijzen „Gebruik: $0 \ n“;
voor mijn $i (1. $num) {
    mijn @arr;
    duw @arr, „$_; 123; 456; 789“ voor (1. $i);
    druk „$i|“, treed („~“, @arr),“ \ n " toe;
}
Andere oplossingen  
 
programming4us programming4us