[Comm] Ruby -- ÂÒÉÌÌÉÁÎÔ × ÍÉÒÅ ÓËÒÉÐÔÏ×ÙÈ ÑÚÙËÏ×!

[Comm] Ruby -- ÂÒÉÌÌÉÁÎÔ × ÍÉÒÅ ÓËÒÉÐÔÏ×ÙÈ ÑÚÙËÏ×!

[Henri Bourbon]

On 9 Nov 2002  22:57, Ilya Palagin wrote:

> в целях популяризации ruby - вот-с :-)

Оооооо! Как я вижу, Ruby -- просто бриллиант в мире скриптовых языков! Я
перевел  вашу  программу,  г-н Палагин, на язык Coal, чья отстойность, о
которой  так  много говорили большевики, становится совершенно очевидной
при  взгляде  на  обе  программы (на ruby и coal), помещенные рядом, в 2
колонки:

#!/usr/bin/ruby -w                         | #!/usr/bin/perl -w
content = Hash.new                         |
File.open(ARGV[0], "r") do |f|             | my @lines = <>;
  cnt = 0                                  |
  while (line = f.gets)                    |
    content[cnt] = line; cnt += 1          |
  end                                      |
  content.keys.each do |n|                 | for (0..@lines-1) {
    m = rand(cnt)                          |   my $r = int(rand(@lines));
    content[n], content[m] = \             |   @lines[$_, $r] = @lines[$r, $_];
                    content[m], content[n] | }                                 
  end                                      |                                  
end                                        |
content.keys.each { |n|  print content[n]} | print @lines;                     

Примечание:  о  том, что алгоритм перемешивания строк, придуманный вами,
неправилен  (разные  перестановки входных строк имеют разную вероятность
появления на выходе), мы здесь не говорим. О том, что правильный и более
эффективный  (на  1  итерацию  меньше)  алгоритм, точнее, программу, его
реализующую,  любой, бегло читавший Perl FAQ, отыскал бы за 3 минуты, мы
здесь не говорим. О том, что создать вместо массива хэш с ключами в виде
чисел  1..N  может  прийти в голову, по-видимому, только программисту на
Вижуал Барсик, Си Диез или Ruby, мы здесь не говорим.

Говорим же мы здесь о том, насколько более красивой, простой и наглядной
является, например, конструкция

строки.ключи.каждый { |n|  напечатать строки[n]}

по сравнению с

напечатать @строки;

Как справедливо отмечали большевики, одной из наиболее гадких черт языка
Coal  является  то,  что  все  можно  сделать  более,  чем 1-м способом.
Например, может ли не возмущать, что

print @lines;

можно записать как

foreach my $line (@lines) {
  print $line;
}

или, скажем,

print foreach @lines;

?

Ruby. Implementing Visual Basic Traditions since 1995.

---
Я  нигде  не  рисовал  смайликов,  и  может возникнуть ощущение, что все
сказанное я злобно процедил через зубы. Конечно же, нет! В этом постинге
не было почти ни одной серьезной строки, все это стёб чистейшей воды.

                            O    \
                              __  )
                                  )
                            O    /

-- 
HB

[Comm] Re: [Comm] Ruby -- бриллиант в мире скриптовых языков!

[Vitaly Lugovsky]

> Как справедливо отмечали большевики, одной из наиболее гадких черт языка
> Coal  является  то,  что  все  можно  сделать  более,  чем 1-м способом.

 Ну как тут не влезть с гнилыми приколами?!?

http://www.willamette.edu/~fruehr/haskell/evolution.html

 Так шта... Perl - суксь. Даже извратиться в нём по человечески не 
дадут. ;)

ЗЫ: unlambda - рулез. Перловщикам должно понравиться.

Re: [Comm] Ruby -- бриллиант в мире скриптовых языков!

[Ilya Palagin]

Henri Bourbon wrote:
> Оооооо! Как я вижу, Ruby -- просто бриллиант в мире скриптовых языков! Я
Сейчас вы это сами увидите.

> перевел  вашу  программу,  г-н Палагин, на язык Coal, чья отстойность, о
> которой  так  много говорили большевики, становится совершенно очевидной
> при  взгляде  на  обе  программы (на ruby и coal), помещенные рядом, в 2
> колонки:
Товарищ Г.Бурбон, вначале я написал довольно пространный ответ на ваш 
"стеб", но потом переписал свой скрипт и решил, что для истинного 
ценителя эффективного программирования вроде вас, способного разродиться 
целой сатирической поэмой после просмотра написанной за пару минут 
поделки - достаточно. Если у вас и здесь есть что покритиковать, прошу в 
talk_room.

!/usr/bin/ruby -w
content = $stdin.readlines
content.each_index  do |n|
   m = rand(content.size - 1)
   content[n], content[m] = content[m], content[n]
end
print content