perl6.suОсвоим perl6 к 2015 году!

nota LXXVI. Вызов рутины с параметрами в произвольном порядке


       Admodum может быть такая ситуация, что легче сделать лишний десяток-другой ударов по клавиатуре, чем ползать и искать ожидаемый рутиной порядок параметров.
    
#!/usr/bin/perl6
распорядок('дежурный_по_столовой' => 'Гарифулин', 'повар' => 'Иванов-Петров',
	'контролёр' => 'Маневич', 'хлеборез' => 'Наливайко',
	'уборщица' => 'Мордоворотов');
sub распорядок($дежурный_по_столовой,$повар,$уборщица,$хлеборез,$контролёр) {
	say "Назначить на октябрьские календы следующий
	
	РАСПОРЯДОК
	
	Менеджер по нарезке хлеба: $хлеборез
	Менеджер по тепловой обработке продуктов: $повар
	Менеджер по соблюдению порядка: $дежурный_по_столовой
	Менеджер по качеству: $контролёр
	Менеджер по дизайну помещения столовой: $уборщица
	
	Дата:            Подпись:";
	}
Назначить на октябрьские календы следующий
	
	РАСПОРЯДОК
	
	Менеджер по нарезке хлеба: хлеборез	Наливайко
	Менеджер по тепловой обработке продуктов: повар	Иванов-Петров
	Менеджер по соблюдению порядка: дежурный_по_столовой	Гарифулин
	Менеджер по качеству: уборщица	Мордоворотов
	Менеджер по дизайну помещения столовой: контролёр	Маневич
	
	Дата:            Подпись:

       Bene.
# mutatio postrema: 30 Jan 2012

   sub      charta situs       nota LXXV <<     >> nota LXXVII   

    RSS     stdin@perl6.su    © Alexius Karmanov, 2010-2011