Функция print1()


30.10.2003, 12:06В примере parrot/languages/perl6/examples/life.p6 обнаружилась интересная встроенная функция print1() (с единицей в последнем символе). Эта функция отличается от традиционной print() тем, что в конце печатает символ перевода строки. Это делает ее похожей на присутствующую в некоторых языках функцию writeln().

Вот как функция print1() применена в упомянутом примере (почему-то в последнем операторе печати вызывается просто print()):

sub Print ($world) {
   my ($i);
   loop ($i = 0; $i < 16; $i++) {
      print1 (substr ($world, $i * 16 , 16));
   }
   print "----------------\n";
}

Примечание. В модуле парсера (P6C::Parser) эта функция помечена как «temporary cruft».

См. также заметку «Оператор say».



16 | 17 | 18 | 19 | 20 | 21 | 22