1. Perl / Говнокод #6135

    −124

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    sub WidthOf()
{
  my %WIDTHES =('90','195','118','165', ...  over9000   ...'43','255');
  my $TextWidth;

  map {$TextWidth += $WIDTHES{ord $_} || 200} split //,@_[0];
  return $TextWidth;
}

    Запостил: abadonna, 30 Марта 2011

    Комментарии (1) RSS

    Добавить комментарий