# $Author: saulius $
# $Revision: 9779 $
# $Date: 2022-02-13 15:23:46 +0000 (Sun, 13 Feb 2022) $

Matricų transponavimas
======================

PROGRAMA
========

Parašykite Perl programą, kuri transponuoja įvesties srauto matricas.

Programos vardas:
mattranspose

Programos iškvietimas:
mattranspose matricos*.dat

Įvesties failai matricos*.dat yra nebūtini; jei jų nėra, programa turi
skaityti iš savo standartinės įvesties.

Rezultatus programa turi išvesti į standartinę išvestį.

DUOMENŲ FORMATAI
================


- visuose įvesties failuose:

  -- eilutė, kurios *pirmas simbolis* yra '#' (numerio simbolis, arba
     "grotelės") reiškia komentarus; tokios eilutės turi būti
     ignoruojamos;

  -- tuščios eilutės, t.y. eilutės neturinčios nei vieno simbolio,
     arba tik "tuščius" simbolius (angl. "whitespace", t.y. tarpo,
     tabuliacijos arba "\r" simbolius) turi būti tyliai ignoruojamos;

  -- visos kitos eilutės yra duomenų eilutės; jų formatas nurodomas
     žemiau.

Duomenys pateikiami tokiu formatu:

     duomenų eilutės turi po N skaičių, kuriose nurodyta matricos
     eilutės. Tokių eilučių turi būti mažiausia N, su atitinkamai
     abiejų matricų pirmosiomis, antrosiomis, ..., N-osiomis
     eilutėmis.

     Pasibaigus pirmųjų matricų eilutėms, įvestyje gali būti kitų
     matricų eilutės; jų dydis N' gali kiekvienos būti skirtingas.

Įvesties formato (duomenų srauto) pavyzdys:

# Komentaras
1 2 3
3 4 5
9 1 0


Išvesties formatas:
===================

Pirmoji išvesties eilutė turi būti komentaras, kuriame užrašytas
panaudotos programos SVN (ar kitos versijų kontrolės sistemos) Id;
dolerio ženklus būtina pašalinti iš išvesties srauto.

Rezultatai išvedami tuo pačiu formatu, kaip ir pateikiami įvesties
duomenys. Išvedama transponuota matrica:

# Id: mattranspose 1 2011-09-28 07:41:19Z author
1 3 9
2 4 1
3 5 0

Programa turi sugebėti skaityti savo pačios išvestį.