Здравствуйте, Pushkin, Вы писали:
P>Сабж гораздо труднее исходной задачиАвтор: Apapa
Дата: 11.04.03
,
P>но тоже имеет единственную рашифровку в цифры.
В борьбе бобра с ослом всегда побеждает бобро.
Здравствуйте, mrhru, Вы писали:
M>
M>
Исходник в студию. Надеюсь это не перебор?
Здравствуйте, IO, Вы писали:
IO>Исходник в студию. Надеюсь это не перебор?
Исходник каждый сам может написать, не девочки
И чем тебе кстати перебор не мил?
Предлагаю конкурс на лучший ребус со словом Apapa
У меня проблема только c фантазиtq и словарным запасом.
Вот ещё одна
etudes-apapa=notall
Здравствуйте, IO, Вы писали:
M>>
M>>
IO>Исходник в студию. Надеюсь это не перебор?
Да что вы, что вы. Ну какой еще перебор, не было никакого перебора.
Перебор — даже слово то какое нехорошее.
//etudes-apapa=sleepy
for ( int e = 1; e < 10; e++ )
{
for ( int t = 0; t < 10; t++ )
{
if ( t == e ) continue;
for ( int u = 0; u < 10; u++ )
{
if ( (u == t) || (u == e ) ) continue;
for ( int d = 0; d < 10; d++ )
{
if ( (d == u) || (d == t) || (d == e ) ) continue;
for ( int s = 0; s < 10; s++ )
{
if ( (s == d) || (s == u) || (s == t) || (s == e ) ) continue;
for ( int a = 1; a < 10; a++ )
{
if ( (a == s) || (a == d) || (a == u) || (a == t) || (a == e ) ) continue;
for ( int p = 0; p < 10; p++ )
{
if ( (p == a) || (p == s) || (p == d) || (p == u) || (p == t) || (p == e ) ) continue;
for ( int l = 0; l < 10; l++ )
{
if ( (l == p) || (l == a) || (l == s) || (l == d) || (l == u) || (l == t) || (l == e ) ) continue;
for ( int y = 0; y < 10; y++ )
{
if ( (y == l) || (y == p) || (y == a) || (y == s) || (y == d) || (y == u) || (y == t) || (y == e ) ) continue;
int xx = e*100000+t*10000+u*1000+d*100+e*10+s;
int yy = a*10000+p*1000+a*100+p*10+a;
int zz = s*100000+l*10000+e*1000+e*100+p*10+y;
if( (xx - yy) == zz )
{
Console.WriteLine(xx.ToString()+"-"+yy.ToString()+"="+zz.ToString());
}
}// y
}// l
}// p
}// a
}// s
}// d
}// u
}// t
}// e
Console.WriteLine("Done");
Console.ReadLine();
В борьбе бобра с ослом всегда побеждает бобро.
Здравствуйте, mrhru, Вы писали:
Прямо образец, хоть на стену вешай.
Здравствуйте, Apapa, Вы писали:
A>Да-а... Ничего задачка! Мне понравилась... 
Дарю
PS
Как я только вас с эрэсдээном не склонял бедных, пока не натолкнулся на вариант с единственным решением
Привет, Pushkin!
[]
P>PS
P>Как я только вас с эрэсдээном не склонял бедных, пока не натолкнулся на вариант с единственным решением
Здорово!
Я поступил иначе — придумал
Apapa — RSDN и нашел все результаты из трех букв (ПРОГРАММУ НАПИСАЛ!!!
), при которых решение единственное. И, о чудо! среди них было замечательное слово
sad!
Решение задачки получилось простое, но
целью была отнюдь не сложность, а оригинальность!
Здравствуйте, Apapa, Вы писали:
A>Я поступил иначе — придумал Apapa — RSDN и нашел все результаты из трех букв (ПРОГРАММУ НАПИСАЛ!!! ), при которых решение единственное. И, о чудо! среди них было замечательное слово sad!
Аллах велик
A>Решение задачки получилось простое, но целью была отнюдь не сложность, а оригинальность!
Дык а даже лучше, что простое.
Я свою без проги и не решил даже
А оригинальность мы оценили
Решение содрано из книги
. Ребусы можно задавать любые.
sum(N1, N2, N) :- sum1(N1, N2, N, 0, 0, [0,1,2,3,4,5,6,7,8,9], _).
sum1([], [], [], 0, 0, Digits, Digits).
sum1([D1 | N1], [D2 | N2], [D | N], C1, C, Digits1, Digits) :-
sum1(N1, N2, N, C1, C2, Digits1, Digits2),
digitsum(D1, D2, C2, D, C, Digits2, Digits).
digitsum(D1, D2, C1, D, C, Digits1, Digits) :-
takedig(D1, Digits1, Digits2),
takedig(D2, Digits2, Digits3),
takedig(D, Digits3, Digits),
S is D1 + D2 + C1,
D is S modu 10,
C is S divu 10.
takedig(A, L, L) :- nonvar(A), !.
takedig(A, [A | L], L).
takedig(A, [B | L], [B | L1]) :- takedig(A, L, L1).
Вопрос к Пролог-машине, например, такой:
?- sum([0,A,P,A,P,A], [S,L,E,E,P,Y], [E,T,U,D,E,S]).
Перед APAPA стоит ноль. Можно ставить цифры на любое место.
... << RSDN@Home 1.0 beta 6a >>
Apapa.gif)
