Skip to content

Instantly share code, notes, and snippets.

@sritchie

sritchie/eq.clj

Created March 15, 2022 22:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sritchie/fffe9d3e0e60dcb30d214b126a8cbd94 to your computer and use it in GitHub Desktop.
Save sritchie/fffe9d3e0e60dcb30d214b126a8cbd94 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
eq.clj
(clojure.core/fn
[[y47090 y47091 y47092 y47093 y47094]
[p47095 p47096 p47097 p47098 p47099]]
(clojure.core/let
[G0000000000000020
(Math/pow y47094 2.0)
G0000000000000022
(Math/cos y47091)
G0000000000000024
(Math/pow p47097 2.0)
G0000000000000026
(clojure.core/+ y47091 y47092)
G0000000000000027
(Math/pow y47093 2.0)
G0000000000000029
(Math/sin y47091)
G000000000000002a
(Math/pow p47098 2.0)
G000000000000002b
(Math/pow G0000000000000022 2.0)
G000000000000002d
(Math/cos G0000000000000026)
G000000000000002e
(Math/sin G0000000000000026)
G000000000000002f
(Math/pow G000000000000002d 2.0)]
(sicmutils.structure/up
1.0
(sicmutils.structure/up y47093 y47094)
(sicmutils.structure/up
(clojure.core//
(clojure.core/+
(clojure.core/*
2.0
p47096
p47097
G0000000000000027
G000000000000002f
G0000000000000022
G0000000000000029)
(clojure.core/*
-2.0
p47096
p47097
G0000000000000027
G000000000000002d
G000000000000002b
G000000000000002e)
(clojure.core/*
p47096
p47097
G0000000000000027
G000000000000002d
G000000000000002e)
(clojure.core/*
-1.0
p47096
p47097
G0000000000000027
G0000000000000022
G0000000000000029)
(clojure.core/*
p47096
p47098
G0000000000000027
G000000000000002d
G0000000000000029)
(clojure.core/*
-1.0
p47096
p47098
G0000000000000027
G0000000000000022
G000000000000002e)
(clojure.core/*
2.0
p47096
p47098
y47093
y47094
G000000000000002d
G0000000000000029)
(clojure.core/*
-2.0
p47096
p47098
y47093
y47094
G0000000000000022
G000000000000002e)
(clojure.core/*
p47096
p47098
G0000000000000020
G000000000000002d
G0000000000000029)
(clojure.core/*
-1.0
p47096
p47098
G0000000000000020
G0000000000000022
G000000000000002e)
(clojure.core/*
p47096
p47099
G000000000000002f
G0000000000000029)
(clojure.core/*
-1.0
p47096
p47099
G000000000000002d
G0000000000000022
G000000000000002e)
(clojure.core/* p47095 p47099 G0000000000000029))
(clojure.core/+
(clojure.core/*
2.0
p47096
p47097
G000000000000002f
G000000000000002b)
(clojure.core/*
2.0
p47096
p47097
G000000000000002d
G0000000000000022
G0000000000000029
G000000000000002e)
(clojure.core/* -1.0 p47096 p47097 G000000000000002f)
(clojure.core/* -1.0 p47096 p47097 G000000000000002b)
(clojure.core/* -1.0 p47095 p47097)))
(clojure.core//
(clojure.core/+
(clojure.core/*
-4.0
p47096
p47097
p47098
G0000000000000027
G000000000000002f
G0000000000000022
G0000000000000029)
(clojure.core/*
4.0
p47096
p47097
p47098
G0000000000000027
G000000000000002d
G000000000000002b
G000000000000002e)
(clojure.core/*
-4.0
p47096
p47097
p47098
y47093
y47094
G000000000000002f
G0000000000000022
G0000000000000029)
(clojure.core/*
4.0
p47096
p47097
p47098
y47093
y47094
G000000000000002d
G000000000000002b
G000000000000002e)
(clojure.core/*
-2.0
p47096
p47097
p47098
G0000000000000020
G000000000000002f
G0000000000000022
G0000000000000029)
(clojure.core/*
2.0
p47096
p47097
p47098
G0000000000000020
G000000000000002d
G000000000000002b
G000000000000002e)
(clojure.core/*
-1.0
p47095
G0000000000000024
G0000000000000027
G000000000000002d
G0000000000000029)
(clojure.core/*
p47095
G0000000000000024
G0000000000000027
G0000000000000022
G000000000000002e)
(clojure.core/*
-1.0
p47096
G0000000000000024
G0000000000000027
G000000000000002d
G0000000000000029)
(clojure.core/*
p47096
G0000000000000024
G0000000000000027
G0000000000000022
G000000000000002e)
(clojure.core/*
-2.0
p47096
p47097
p47098
G0000000000000027
G000000000000002d
G000000000000002e)
(clojure.core/*
2.0
p47096
p47097
p47098
G0000000000000027
G0000000000000022
G0000000000000029)
(clojure.core/*
-2.0
p47096
p47097
p47098
y47093
y47094
G000000000000002d
G000000000000002e)
(clojure.core/*
2.0
p47096
p47097
p47098
y47093
y47094
G0000000000000022
G0000000000000029)
(clojure.core/*
-1.0
p47096
p47097
p47098
G0000000000000020
G000000000000002d
G000000000000002e)
(clojure.core/*
p47096
p47097
p47098
G0000000000000020
G0000000000000022
G0000000000000029)
(clojure.core/*
-1.0
p47096
G000000000000002a
G0000000000000027
G000000000000002d
G0000000000000029)
(clojure.core/*
p47096
G000000000000002a
G0000000000000027
G0000000000000022
G000000000000002e)
(clojure.core/*
-2.0
p47096
G000000000000002a
y47093
y47094
G000000000000002d
G0000000000000029)
(clojure.core/*
2.0
p47096
G000000000000002a
y47093
y47094
G0000000000000022
G000000000000002e)
(clojure.core/*
-1.0
p47096
G000000000000002a
G0000000000000020
G000000000000002d
G0000000000000029)
(clojure.core/*
p47096
G000000000000002a
G0000000000000020
G0000000000000022
G000000000000002e)
(clojure.core/*
-1.0
p47095
p47097
p47099
G000000000000002d
G0000000000000022
G0000000000000029)
(clojure.core/*
p47095
p47097
p47099
G000000000000002b
G000000000000002e)
(clojure.core/*
-1.0
p47096
p47097
p47099
G000000000000002d
G0000000000000022
G0000000000000029)
(clojure.core/*
p47096
p47097
p47099
G000000000000002b
G000000000000002e)
(clojure.core/*
-1.0
p47096
p47098
p47099
G000000000000002f
G0000000000000029)
(clojure.core/*
p47096
p47098
p47099
G000000000000002d
G0000000000000022
G000000000000002e)
(clojure.core/* -1.0 p47095 p47098 p47099 G0000000000000029))
(clojure.core/+
(clojure.core/*
2.0
p47096
p47097
p47098
G000000000000002f
G000000000000002b)
(clojure.core/*
2.0
p47096
p47097
p47098
G000000000000002d
G0000000000000022
G0000000000000029
G000000000000002e)
(clojure.core/* -1.0 p47096 p47097 p47098 G000000000000002f)
(clojure.core/* -1.0 p47096 p47097 p47098 G000000000000002b)
(clojure.core/* -1.0 p47095 p47097 p47098)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment