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

nota XXIII. Хочется случайного


       Теперь rand(1000) не работает. Надо 1000.rand
    
#!/usr/bin/perl6
my $rand=1000.rand;
$rand.say;
899.683215280191

       Scilicet.
       А если надо целое число? Сейчас нет int(). Можно так:
    
#!/usr/bin/perl6
my $rand=(1..1000).pick;
$rand.say;
247

       А можно и иначе, очевидно.
       TODO. Найти способ сделать 1000.rand более целым.
       Оператор pick, кстати, довольно удобен.
    
#!/usr/bin/perl6
say ('aaa'..'zzz').pick ~ (100..999).pick;
jnd140

       Получилась симпатичная программа генерации паролей.
       pick лучше, чем $list[int(rand(@list))]
# mutatio postrema: 24 Aug 2010

   rand, pick      charta situs       nota XXII <<     >> nota XXIV   

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