% сперва напишем тест
test_max1 :-
max(3, 2, X),
X = 3 , !.
test_max1 :-
write('max(3, 2, X) вычислен не правильно!'),
nl.
test_max2 :-
max(2, 3, X),
X = 3, !.
test_max2 :-
write('max(2, 3, X) вычислен не правильно!'),
nl.
test_max3 :-
max(2, 2, X),
X = 2, !.
test_max3 :-
write('max(2, 2, X) вычислен не правильно!'),
nl.
run_tests :-
test_max1,
test_max2,
test_max3.
% теперь опишем предикат, max
max(A, B, B) :-
A < B,
!.
max(A, _, A).
% ...
% теперь опишем предикат, max
max(A, B, B) :-
A > B,
!.
max(A, _, A).
// задаем начальное значение весов случайным образом
// в интервале от [-0.3, 0.3]
double[] w = new double[]
{
((rD = r.Next(-100, 100) * 0.003) == 0) ?
0.3 : rD,
((rD = r.Next(-100, 100) * 0.003) == 0) ?
0.3 : rD
};
double[] w1 = new double[2];
w.CopyTo(w1, 0);
// входные сигналы
double[] x = new double[]
{
1.0,
0.0
};
// норма обучения или скорость обучения
double n = 0.1;
double[,] pairs = new double[,]
{
{0.2, 1.3},
{0.25, 1.3},
{0.4, 1.4},
{0.48, 1.52},
{0.6, 1.6},
{0.8, 1.6},
{0.9, 2},
{1, 2.1}
};
for (int i = 0; i < 10000; i++)
{
for (int j = 0; j < pairs.GetLength(0); j++)
{
// для x на входе
x[1] = pairs[j, 0];
// ожидаемый y на выходе
double d = pairs[j, 1];
// сумматор
double y = x[0] * w[0] + x[1] * w[1];
// вычисляем ошибку
double e = d - y;
// отклонение весов
double dW0 = e * n * x[0];
double dW1 = e * n * x[1];
// кооректируем весы
w[0] = w[0] + dW0;
w[1] = w[1] + dW1;
}
}
Console.WriteLine("w0 = {0}, w1 = {1}",
w1[0], w1[1]);
Console.WriteLine("m = {0}, c = {1}, |m - c| = {2}",
w[1], w[0], Math.Abs(w[1] - w[0]));
// m = 0.993801..., c = 1.03101...
X = (0.5E1 + 2 + Y);
SCAN(Y);
IF (Y > (X + 2)) {
PRINT(Y);
}
Y1 = 10;
M0:
IF (Y1 != 20 + 30) {
GOTO M0;
}
(опер. присваивания, 1) // 1 - номер строки в
// таблице идентификаторов
// пример: X =
(число, 1) // 1 - номер строки
// в таблице констант
// пример: 0.5
(SCAN, 1) // 1 - номер строки в
// таблице идентификаторов
// пример: SCAN(X)
(IF, IF) // пример: IF
((, () // пример: (
(идентификатор, 1) // 1 - номер строки в
// таблице идентификаторов
// пример: x
(), )) // пример: )
(ар. операц, +) // пример: +
(оп. отношения, >=) // пример: >=
({, {) // пример: {
(}, }) // пример: }
(;, ;) // точка с запятой
(метка, 3) // 3 - номер строки в
// таблице идентификаторов
// пример M0:
(GOTO, 3) // 3 - номер строки в
// таблице идентификаторов
// GOTO M0
(PRINT, 2) // 2 - номер строки в
// таблице идентификаторов
// пример: PRINT(Y)
class TransliterationUnit
{
// ...
public void Transliterate(
string input, string output)
{
// don't do this at production,
// reading string to memory can be
// so dangerous on files with larger size
string code = File.OpenText(input).ReadToEnd().
Replace("\r", "").
Replace("\t", "").Trim().
ClearExtraWhitespaces();
List<Symbol> symbols = new List<Symbol>();
foreach (char c in code)
{
if (GetSymbolClass(c) != "other")
{
symbols.Add(new Symbol() {
Value = c,
Class = GetSymbolClass(c)});
}
else
{
_logger.Log(String.Format(
"Unexpected symbol - '{0}'", c));
}
}
SaveSymbols(output, symbols);
}
// ...
}
public string ToRpn(string expression)
{
// очищаем стек
_stack.Purge();
string output = "";
// обходим строку посимвольно
foreach (char c in expression)
{
// если встретили закрывающую скобку
if (c == ')')
{
// вытаскиваем операции из стека
// пока не дойдем до открывающейся скобки
char op = (char)_stack.Pop();
while (op != '(')
{
output += op;
op = (char)_stack.Pop();
}
}
// если встретили цифру
else if (Char.IsDigit(c))
{
// сразу добавляем ее к выходной строке
output += c;
}
// если открывающую скобку
else if (c == '(')
{
// то помещаем ее в стек
_stack.Push(c);
}
// если встретили арифметическую операцию
else if (IsArithmeticOperation(c))
{
// если стек - пуст
if (_stack.IsEmpty)
{
// помещаем операцию в стек
_stack.Push(c);
}
else
{
// проверяем приоритеты
if (GetPriority(c) >
GetPriority((char)_stack.Top))
{
_stack.Push(c);
}
else
{
while (!_stack.IsEmpty &&
GetPriority(c) <=
GetPriority(
(char)_stack.Top))
{
output +=
(char)_stack.Pop(); ;
}
_stack.Push(c);
}
}
}
}
// добавляем в выходную строку оставшиеся символы
while (!_stack.IsEmpty)
{
output += (char)_stack.Pop();
}
return output;
}
<?php
// including library
require_once 'shortify-uri.php';
// creating shortifier instance
$shortifier = new UriShortifier(
new FileHashTable('data.txt'));
// prepare uris`
$uris = array(
'some-long-uri-with-text',
'not-so-long-uri',
'less-little-uri');
// shortifing uris`
$keys = array();
echo '<pre>';
foreach ($uris as $uri) {
$key = $shortifier->
shortify($uri);
echo "Before shortifing: {$uri},
after {$key} \n";
$keys[] = $key;
}
// unshortifing uris`
foreach ($keys as $key) {
$uri = $shortifier->
unshortify($key);
echo "Before {$key}
after {$uri} \n";
}
echo '</pre>';
function levenshtein_distance($s, $t)
{
$n = strlen($s);
$m = strlen($t);
/* if used russian or other UTF-8 characters
change above code with this
$n = mb_strlen($s, 'UTF-8');
$m = mb_strlen($t, 'UTF-8');
*/
if ($n == 0)
return $m;
if ($m == 0)
return $n;
$d = array();
for ($i = 0; $i <= $n; $i++) {
$d[$i][0] = $i;
}
for ($j = 0; $j <= $m; $j++) {
$d[0][$j] = $j;
}
for ($i = 1; $i <= $n; $i++) {
$sI = $s[$i - 1];
for ($j = 1; $j <= $m; $j++) {
$tJ = $t[$j - 1];
$cost = ($tJ == $sI) ? 0 : 1;
$d[$i][$j] = min(
$d[$i - 1][$j] + 1,
$d[$i][$j - 1] + 1 ,
$d[$i - 1][$j - 1] + $cost);
}
}
return $d[$n][$m];
}
echo levenshtein_distance('gumbol', 'gambo');resources.translate.adapter = "array"
resources.translate.data =
APPLICATION_PATH "/languages/ru/Zend_Validate.php"
resources.translate.locale = "ru"