liczba 24...

dagoth · Post autor: **dagoth** » 28 maja 2005, o 00:33

Jak otrzymać liczbę 24 używając tylko jeden raz liczb 1 , 3 , 4 , 6 . Można dodawać, odejmować, mnożyć, dzielić i używać nawiasów.

misial · Post autor: **misial** » 28 maja 2005, o 09:20

a mozna potegowac??? albo silnii uzywac?

24=1^3 * 4*6
24=4!-3!+6*1

Post autor: **Tomasz Rużycki** » 28 maja 2005, o 09:34

Jest wyraźnie napisane, jakich działań możesz używać... =)

$\displaystyle{ 24=(14-6)\cdot 3}$

Pozdrawiam,
--
Tomek Rużycki

dagoth · Post autor: **dagoth** » 28 maja 2005, o 10:10

ok...a teraz bez łączenia w liczby dwucyfrowe...

dr_grucha · Post autor: **dr_grucha** » 28 maja 2005, o 14:27

24=[1/3]+4*6

[n] - część całkowita z liczby n

kaarol · Post autor: **kaarol** » 28 maja 2005, o 15:25

24= 1*√ ((4!)^(6/3))

Post autor: **Tomasz Rużycki** » 28 maja 2005, o 15:27

Można dodawać, odejmować, mnożyć, dzielić i używać nawiasów.

...

Pozdrawiam,
--
Tomek Rużycki

Elvis · Post autor: **Elvis** » 28 maja 2005, o 15:53

Dr Grucha użył nawiasów... tylko kwadratowych.

kaarol · Post autor: **kaarol** » 28 maja 2005, o 16:28

Elvis to było do mnie bo użyłem pierwiastka.

dagoth · Post autor: **dagoth** » 28 maja 2005, o 16:43

dr_grucha pisze:24=[1/3]+4*6

[n] - część całkowita z liczby n

chodziło mi o standardowe nawiasy...

KDteam · Post autor: **KDteam** » 30 maja 2005, o 19:05

a nie można tak:
24=2*6+2*4+3+1

Post autor: **dem** » 30 maja 2005, o 19:27

KDteam czytaj uważnie:P

dagoth pisze:Jak otrzymać liczbę 24 używając tylko jeden raz liczb 1 , 3 , 4 , 6 . Można dodawać, odejmować, mnożyć, dzielić i używać nawiasów.

pwl · Post autor: **pwl** » 31 maja 2005, o 23:08

Albo się mylę, albo się nie da...

operacje(Lista, Wynik, Przebieg) :-
permutacja(Lista, Perm),
mozna_zlozyc(Perm, Wynik, Przebieg).

mozna_zlozyc([X|Lista], Wynik, Przebieg) :-
mozna_zlozyc(Lista, Wynik, X, Przebieg).

mozna_zlozyc([], Ak, Ak, []).

mozna_zlozyc([X|R], Wynik, Ak, [op(Ak,O,X,W)|Rez]) :-
operacja(Ak, X, W, O),
mozna_zlozyc(R, Wynik, W, Rez).

operacja(X, Y, Z, '+') :- Z is X + Y.
operacja(X, Y, Z, '*') :- Z is X * Y.
operacja(X, Y, Z, '-') :- Z is X - Y.
operacja(X, Y, Z, '/') :- Y \= 0, Z is X // Y, 0 is X mod Y.

myDelete([X|R], X, R).
myDelete([Y|R], X, [Y|Q]) :- myDelete(R, X, Q).

permutacja([], []).
permutacja([X|L1], L2) :-
length([X|L1], L),
length(L2, L),
myDelete(L2, X, N2),
permutacja(L1, N2).

pwl@druid:~/prolog$ ciao
Ciao-Prolog 1.10 #5: pon mar 14 22:36:06 CET 2005
?- [costam].
Note: [costam] deprecated, use ensure_loaded(costam) instead

yes
?- operacje([1,3,4,6], 24, Przebieg).

no
?-

Nie biorę pod uwagę ułamków ale chyba logiczne że a*(b/c) = (a*b) / c...

dagoth · Post autor: **dagoth** » 1 cze 2005, o 17:19

dostałem parę informacji że już się wam skończyły pomysły więc już podam rozw. i kto chce to niech sobie zobaczy: 6/(1-3/4)

pwl · Post autor: **pwl** » 1 cze 2005, o 17:22

Oops :> Fakt, tego nie wziąłem pod uwagę :>