24 game/Solve: Difference between revisions

m
(Added 11l)
Line 19:
op[Char(‘/’)] = (x, y) -> I y != 0 {x / y} E 9999999
 
F roughly_equalalmost_equal(a, b)
R abs(a - b) <= 1e-5
 
Line 29:
L
V (a, b, c, d) = (n[0], n[1], n[2], n[3])
I roughly_equalalmost_equal(:op[x](:op[y](a, b), :op[z](c, d)), 24.0)
R ‘(’a‘ ’y‘ ’b‘) ’x‘ (’c‘ ’z‘ ’d‘)’
I roughly_equalalmost_equal(:op[x](a, :op[y](b, :op[z](c, d))), 24.0)
R a‘ ’x‘ (’b‘ ’y‘ (’c‘ ’z‘ ’d‘))’
I roughly_equalalmost_equal(:op[x](:op[y](:op[z](c, d), b), a), 24.0)
R ‘((’c‘ ’z‘ ’d‘) ’y‘ ’b‘) ’x‘ ’a
I roughly_equalalmost_equal(:op[x](:op[y](b, :op[z](c, d)), a), 24.0)
R ‘(’b‘ ’y‘ (’c‘ ’z‘ ’d‘)) ’x‘’a
I !n.next_permutation()
1,453

edits