|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/1609.69 05 Feb 2002 01:40:57
To : Sergey V.
Subject : Re: Размерность массива?
--------------------------------------------------------------------------------
AC>> Hепонятно, что ты подразумеваешь под размерностью. С точки зрения
AC>> математики, размерность того, что ты указал, равна 2. И ничего
AC>> считать не надо. Если ты хочешь узнать это, имея только ссылку, и не
AC>> зная, как он устроен внутри, сиречь с точки зрения языка, то
AC>> размерность его равна 1 (в perl бывают только одномерные массивы).
AC>> Если что-то другое, то тебе это придется явно сформулировать.
SV> Я хочу знать максимальное значение i и j или по другому говоря
SV> сколько строк и столбцов в масиве?
Мог бы и сразу объяснить ~:)
#!/usr/bin/perl -w
use strict;
my $x = [[1, 2, 3], [[4, 5], 6], 7];
print "max(i) = ".@$x."\n";
my $maxj = 0;
for my $j (@$x) {
$maxj = @$j if ref $j eq 'ARRAY' and $maxj < @$j;
}
print "max(j) = $maxj\n";
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/1609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
