Make constant less weird

Per discussion at 7fe716c#commitcomment-24629881
hakaru-dev · Sep 28, 2017 · cea1292 · cea1292
1 parent 4599d7d
commit cea1292
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/icfp2017/linearRegression.hk b/examples/icfp2017/linearRegression.hk
@@ -1,6 +1,6 @@
 fn dataX array(real):
    a <~ normal(0,1)
-   b <~ normal(5,1.82574185835055371152)
+   b <~ normal(5,sqrt(10/3))
    invNoise <~ gamma(1,1)
    y <~ plate i of 1000: normal(a*dataX[i]+b, recip(sqrt(invNoise)))
    return (y, [a,b,invNoise])