- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
<?php
$base='http://www.silvi.narod.ru/'; #корень сайта silvi
$default['imia']='Александр'; # Имя по умолчанию
$default['familija']='Суворов'; # Фамилия по умолчанию
################ Не менять ниже############################################
$vCrLf="<BR>\n";
$azbuka=Array();
$azbuka['А']=$azbuka['а']=1;
$azbuka['Б']=$azbuka['б']=2;
// ....
$azbuka['Я']=$azbuka['я']=900;
$tolkovanie=Array();
$tolkovanie[1]='Честолюбие, жадность, грубость.';
$tolkovanie[2]='Разрушение, гибельное последствие.';
// ....
$tolkovanie[1390]='Опасность.';
$result=array();
function summ($str)
{
global $vCrLf,$result,$azbuka,$tolkovanie;
for($s=$i=0;$i<strlen($str);$i++)
{
$chr=substr($str,$i,1);
if(isset($azbuka[$chr]))
{
$s+=$azbuka[$chr];
}
else
{
$s+=0;
}
}
return $s;
}
function indent($str,$max)
{
if (($max-$str)<1) return '';
$s='';
for($i=0;$i<abs($max-$str);$i++)
{
$s.=' ';
}
return $s;
}
function gadanie($imia,$familija)
{
global $vCrLf,$result,$azbuka,$tolkovanie;
$result=array();
$num=summ($imia)+summ($familija);
if(isset($tolkovanie[$num]))
{
$result[0]=$num.': '.indent(strlen($num),3).$tolkovanie[$num];
}
else
{
$result[0]='';
}
for($i=0;$i<strlen($num);$i++)
{
$nn=((int)substr($num,$i,1))*pow(10,strlen($num)-$i-1);
if(isset($tolkovanie[$nn]))
{
$result[$i+1]=$nn.': '.indent(strlen($nn),3).$tolkovanie[$nn];
}
else
{
$result[$i+1]='';
}
}
for($nn=0,$i=0;$i<strlen($num);$i++)
{
$nn+=(int)substr($num,$i,1);
}
if(isset($tolkovanie[$nn]))
{
$result[sizeof($result)]=$nn.': '.indent(strlen($nn),3).$tolkovanie[$nn];
}
else
{
$result[sizeof($result)]='';
}
################ Не менять выше############################################
$ret='<table class="table">';
$ret.='<tr class="tr"><th colspan=2>Результаты гадания:</th></tr>';
$ret.='<tr class="tr" style="font-weight:bold;"><td class="td" colspan=2 align=center>'.$imia.' '.$familija.'</td></tr>';
foreach($result as $k=>$v)
{
$res=split(':',$v);
if(isset($v)&&($v!='')) $ret.='<tr class="tr2"><td class="td2" align=right>'.$res[0].'</td><td class="td2" align=left>'.$res[1].'</td></tr>';
}
$ret.='</table>';
return $ret;
}
// ВЫЗОВ
echo(gadanie($_GET["ti"],$_GET["tf"]).'<br>');
вот так я лет 8 назад на пхп4 написал "Каббалистическое экспресс-гадание"( http://gargoyle.h1.ru/kabbala.php ) для сайта отца. Приятно, что в сети есть восторженные отзывы о скрипте, но внутри сплошной ГК - еле уложил этот верх юношеской мысли в 100 строк, там еще и гибрид с хтмл не менее "изящный". Работает на ура, поэтому переписывать нет ни потребности, ни желания, ни смысла.
Смейтесь на здоровье )
Follow us!
Не бывает такого, что человек сел за незнакомую ему вещь под название "Программирование", и сразу забабахал сортировку слиянием или удаление узла из дерева. Потихоньку приходили к этому.
По-вашему это алгоритмы высшей степени сложности?
К тому же человек, пришедший из математики сходу напишет ту же сортировку Хоара, ибо она один-в-один переводится с нотации в код:
1 сортировку Хоара не помню
2 с утречка долго втыкал в код
и это я ща продвинутый (говно-?)кодер, а вы хотите, что б я ЭТО написал тогда, едва взявшись за книжки по прогингу?
чушь городить изволите, мсье
Мда, падает уровень образования, ох как падает. А что же от этих бакалавров ждать.
тут один трололо при мне под сомнение ставил наличие программеров на эрланге и смолтоке, дурашка))
$azbuka['А']=$azbuka['а']=1;
$azbuka['Б']=$azbuka['б']=2;
$azbuka['Я']=$azbuka['я']=900;
$tolkovanie=Array();
$tolkovanie[1]='Честолюбие, жадность, грубость.';
$tolkovanie[2]='Разрушение, гибельное последствие.';
$tolkovanie[1390]='Опасность.';
Этож сколько надо терпения + копипаста чтоб такое написать. Осболево вот эти конструкции. Ммм Изощренное говнище $azbuka['А']=$azbuka['а']=1;