Pull to refresh
-1
brom_portret@brom_portretread⁠-⁠only

Пользователь

Send message
На мой взгляд, критерий полезности — личное счастье и гармония отдельного человек.

Возьмем например следующую цитату (Чехов «Татарин в ссылке»)

«Я, братуша, не мужик простой, не из хамского звания, а дьячковский сын и, когда на воле жил в Курске, в сюртуке ходил, а теперь довел себя до такой точки, что могу голый на земле спать и траву жрать. И дай бог всякому такой жизни. Ничего мне не надо и никого я не боюсь, и так себя понимаю, что богаче и вольнее меня человека нет. „

Модель хорошая, человеку в ней збс и зла некому не делает. ОК.
Ну вот чем плоха любая типология, так это тем что в природе «чистые» типы встречаются редко.
Человек вполне может частично обладать качествами как и дельца, так и линейного программиста + отлично знать алгоритмы сортировки и т.д. Или вот еще феномен, с которым я встречался дважды, вроде человек все знает, отвечает на все вопросы правильно, а код пишет полное г.
Было бы интересно посмотреть на результат проверки sqlite с ихним 100% branch test coverage и Millions and millions of test cases.
А вот несколько фотографий из Mountain View's Computer History Museum в Калифорнии: www.flickr.com/photos/fruitsofkarma/sets/72157649561486299
DEC PDP-11, NEAC 2203 Console, IBM System/360 Model 30, AN/FSQ-7 и еще какая-то мелочевка
Смена дефолтного счета у альфы есть! Она доступна в новом альфа клик 2.0.
Для этого:
* Щелкните на пункт меню мои карты;
* Щелкните на название карты;
* Откроется старница с инфой о карте, там будет дополнительное горизонтальное меню, где первый пункт «Сменить счет».

И если кто-то знает о наличии подобного функционала у банков кроме Альфы, буду также благодарен за наводку (при поездках за границу хочется иметь две карты разных банков).
Вот не люблю такой подход в интернет-банкинге, когда основной сущностью является карта, а не счёт (так сделано у тинькова, русского стандарта и еще кучи других банков).

Гораздо удобнее сделано у Альфы и Росбанка (и может быть, у других неизвестных мне банков):
Основная сущность счет. Я могу открыть счет онлайн в любой валюте через банк клиент и хранить деньги там и перекинуть деньги на карточный счет, сколько мне нужно на расходы. Зачем хранить на карточном счете всю сумму. (Кстати, у той же Альфы есть для этого счет «мой сейф» с более высокими процентами, и еще есть счет Аэроплан (на остаток раз в месяц начисляются мили аэрофлота)).

Кроме того у той же Альфы и Росбанка можно оперативно менять счет, привязанный к карте. Зачем это нужно?
Ну вот, например, собираюсь я в США или европу. Меняю привязку карты с рублевого счета на долларовый/евро, конвертирую рубли в валюту в интернет банке и при снятии в банкомате/оплате никакой конвертации по непонятным курсам не происходит. Удобно же, черт возьми.

А еще, например, у АКБ Барс есть классная фича, запрет операций по карте зарубежом.

Кстати, реквестирую банк, в котором одновременно есть обе фичи: запрет операций по карте зарубежом и смена дефолтного счета карты онлайн.

P.S. если у вас всё это есть, извиняюсь и обещаю открыть у вас счет :)
Вы серьезно считаете эти комментарии полезными?

//Пробуем инициалировать
if not init_libJPEG then
raise Exception.Create('initialization of libJPEG failed.')

//Декодируем изображение
jpeg_start_decompress(Jpeg)

//Освободим память
FreeMemory(CompressedBuff);

//Заканчиваем декодирование
jpeg_finish_decompress(Jpeg);
видимо разница в версиях интерпретатора
и кстати, как насчет таких тестовых данных: :)

Smith
Smith, Martin, Reisig: You got wrong Erdos Number
Erdos, Reisig: Stuttering in petri nets
Smith, Chen: First oder derivates in structured programming
Jablonski, Hsueh: Selfstabilizing data structures
хм, у меня вот так:
cat@lenovo:~/yr2014golf$ prove test.pl >/dev/null

#   Failed test 'Smith
# Smith, Martin, Erdos: Newtonian forms of prime factor matrices 
# Erdos, Reisig: Stuttering in petri nets
# Smith, Chen: First oder derivates in structured programming
# Jablonski, Hsueh: Selfstabilizing data structures
# '
#   at test.pl line 99.
#          got: '0
# '
#     expected: '1
# '

#   Failed test 'Chen
# Smith, Martin, Erdos: Newtonian forms of prime factor matrices 
# Erdos, Reisig: Stuttering in petri nets
# Smith, Chen: First oder derivates in structured programming
# Jablonski, Hsueh: Selfstabilizing data structures
# '
#   at test.pl line 99.
#          got: '1
# '
#     expected: '2
# '

#   Failed test 'Chen
# Smith, Martin, Erdos: Newtonian forms of prime factor matrices 
# Erdos, Reisig: Stuttering in petri nets
# Smith, Chen: First oder derivates in structured programming
# Jablonski, Hsueh: Selfstabilizing data structures
# Erdos, Chen: Close connections
# '
#   at test.pl line 99.
#          got: '0
# '
#     expected: '1
# '
# Looks like you failed 3 tests of 8.
1) тесты все равно не проходят, у вас должно быть в конце $i+1
2) даже если сделать предложенный фикс, будет неправильный результат для самого Эрдёша (у него должно быть 0).
3) Erdos можно не оборачивать кавычками.

Вот ваша, грубо профикшенная, программа, на который тесты проходят:
#!/usr/bin/perl -pla0F'\n'
$c=$F[0];$p[0]=Erdos;$_=Inf;for$i(0..@F){@_=grep{"$_~$p[$i]"=~/(\b\w+\b).*~.*\b\1\b/}@F;$p[$i+1]="@_"=~$c?($_=$F[0]eq Erdos ?0:$i+1)&last:"@_"}
ну вот, 160 :)
#!/usr/bin/perl -pla0F\n

sub R {
    my ($a, $i) = pop;
    map {
        @r = split /, |:/;
        if (!($i++ ~~ @_) & $a ~~ @r) {
           Erdos ~~ @r && push @p, @_ | $a ne Erdos ? @_+1 : 0;
           R(@_, $i - 1, $_) for @r
        }
    } @F;sort@p
}

$_=(R $F[0])[0]//Inf


#!/usr/bin/perl -pla0F\n
sub R{my($a,$i)=pop;map{@r=split/, |:/;if(!($i++~~@_)&$a~~@r){Erdos~~@r&&push@p,@_|$a ne Erdos?@_+1:0;R(@_,$i-1,$_)for@r}}@F;sort@p}$_=(R$F[0])[0]//Inf
Видимо, статья не нравится
Тесты не проходят :(
и вместо $#F можно смело писать @F :)
Ага, inf можно без кавычек.
черт, 213 же :)
#!/usr/bin/perl -l
chomp(@d = <>);

sub l{
    my ($a, $i) = pop;
    map {
        @r = split /, |:/;
        pop @r;
        if (!($i++ ~~ @_) && $a ~~ @r) {
           'Erdos' ~~ @r && push @p, @_ || $a ne 'Erdos' ? @_+1 : 0;
           $_ ne $a && l(@_, $i-1, $_) for @r;
        }
    } @d;
}

l shift @d;
print((sort@p)[0]//'Inf');


#!/usr/bin/perl -l
chomp(@d=<>);sub l{my($a,$i)=pop;map{@r=split/, |:/;pop@r;if(!($i++~~@_)&&$a~~@r){'Erdos'~~@r&&push@p,@_||$a ne'Erdos'?@_+1:0;$_ ne$a&&l(@_,$i-1,$_)for@r}}@d}l shift@d;print((sort@p)[0]//'Inf')

Information

Rating
Does not participate
Location
Санкт-Петербург и область, Россия
Registered
Activity