[FIXED] Add basic quadratics solver library

libraries/quadratics.xml

@@ -0,0 +1 @@
+<blocks app="Snap! 10.1-dev, https://snap.berkeley.edu" version="2"><block-definition s="USE BIGNUMS %&apos;bool&apos;" type="command" category="operators"><comment x="0" y="0" w="303.3333333333333" collapsed="false">call with True to turn on the entire Scheme numeric tower, including infinite-precision integers, exact rationals, and complex numbers; call with False to restore native JavaScript arithmetic.</comment><header></header><code></code><translations>pt:altera utilização de aritmética do Scheme para _&#xD;ca:sistema numèric d&apos;Scheme _&#xD;pl:system liczbowy Scheme _&#xD;</translations><inputs><input type="%b"></input></inputs><script><block s="doApplyExtension"><l>src_load(url)</l><list><l>libraries/biginteger.js</l></list></block><block s="doApplyExtension"><l>src_load(url)</l><list><l>libraries/schemeNumber.js</l></list></block><block s="doApplyExtension"><l>src_load(url)</l><list><l>libraries/bignums.js</l></list></block><block s="doApplyExtension"><l>big_switch(bool)</l><list><block var="bool"/></list></block></script></block-definition><block-definition s="quadratic discriminant from a %&apos;a&apos; b %&apos;b&apos; c %&apos;c&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s" initial="1">1</input><input type="%s" initial="1">2</input><input type="%s" initial="1">3</input></inputs><script><block s="doReport"><block s="reportDifference"><block s="reportPower"><block var="b"/><l>2</l></block><block s="reportVariadicProduct"><list><l>4</l><block var="a"/><block var="c"/></list></block></block></block></script></block-definition><block-definition s="real discriminant from a %&apos;a&apos; b %&apos;b&apos; c %&apos;c&apos; ?" type="predicate" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s" initial="1">1</input><input type="%s" initial="1">2</input><input type="%s" initial="1">3</input></inputs><script><block s="doReport"><block s="reportVariadicOr"><list><block s="reportVariadicGreaterThan"><list><custom-block s="quadratic discriminant from a %s b %s c %s"><block var="a"/><block var="b"/><block var="c"/></custom-block><l>0</l></list></block><block s="reportVariadicEquals"><list><custom-block s="quadratic discriminant from a %s b %s c %s"><block var="a"/><block var="b"/><block var="c"/></custom-block><l>0</l></list></block></list></block></block></script></block-definition><block-definition s="solve quadratic a %&apos;a&apos; b %&apos;b&apos; c %&apos;c&apos;" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs><input type="%s" initial="1">1</input><input type="%s" initial="1">2</input><input type="%s" initial="1">3</input></inputs><script><block s="doDeclareVariables"><list><l>x</l><l>y</l></list></block><custom-block s="USE BIGNUMS %b"><l><bool>true</bool></l></custom-block><block s="doSetVar"><l>x</l><block s="reportVariadicSum"><list><block s="reportPower"><block var="b"/><l>2</l></block><block s="reportMonadic"><l><option>sqrt</option></l><custom-block s="quadratic discriminant from a %s b %s c %s"><block var="a"/><block var="b"/><block var="c"/></custom-block></block></list></block></block><block s="doSetVar"><l>y</l><block s="reportDifference"><block s="reportPower"><block var="b"/><l>2</l></block><block s="reportMonadic"><l><option>sqrt</option></l><custom-block s="quadratic discriminant from a %s b %s c %s"><block var="a"/><block var="b"/><block var="c"/></custom-block></block></block></block><block s="doReport"><block s="reportNewList"><list><block var="x"/><block var="y"/></list></block></block></script></block-definition></blocks>