24 game/Solve: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
Alextretyak (talk | contribs) m (→{{header|11l}}) |
||
Line 19: | Line 19: | ||
op[Char(‘/’)] = (x, y) -> I y != 0 {x / y} E 9999999 |
op[Char(‘/’)] = (x, y) -> I y != 0 {x / y} E 9999999 |
||
F |
F almost_equal(a, b) |
||
R abs(a - b) <= 1e-5 |
R abs(a - b) <= 1e-5 |
||
Line 29: | Line 29: | ||
L |
L |
||
V (a, b, c, d) = (n[0], n[1], n[2], n[3]) |
V (a, b, c, d) = (n[0], n[1], n[2], n[3]) |
||
I |
I almost_equal(:op[x](:op[y](a, b), :op[z](c, d)), 24.0) |
||
R ‘(’a‘ ’y‘ ’b‘) ’x‘ (’c‘ ’z‘ ’d‘)’ |
R ‘(’a‘ ’y‘ ’b‘) ’x‘ (’c‘ ’z‘ ’d‘)’ |
||
I |
I almost_equal(:op[x](a, :op[y](b, :op[z](c, d))), 24.0) |
||
R a‘ ’x‘ (’b‘ ’y‘ (’c‘ ’z‘ ’d‘))’ |
R a‘ ’x‘ (’b‘ ’y‘ (’c‘ ’z‘ ’d‘))’ |
||
I |
I almost_equal(:op[x](:op[y](:op[z](c, d), b), a), 24.0) |
||
R ‘((’c‘ ’z‘ ’d‘) ’y‘ ’b‘) ’x‘ ’a |
R ‘((’c‘ ’z‘ ’d‘) ’y‘ ’b‘) ’x‘ ’a |
||
I |
I almost_equal(:op[x](:op[y](b, :op[z](c, d)), a), 24.0) |
||
R ‘(’b‘ ’y‘ (’c‘ ’z‘ ’d‘)) ’x‘’a |
R ‘(’b‘ ’y‘ (’c‘ ’z‘ ’d‘)) ’x‘’a |
||
I !n.next_permutation() |
I !n.next_permutation() |