Data commit

Task/Closest-pair-problem/Ursala/closest-pair-problem-1.ursala

@@ -0,0 +1,3 @@
+#import flo
+
+clop = @iiK0 fleq$-&l+ *EZF ^\~& plus+ sqr~~+ minus~~bbI

Task/Closest-pair-problem/Ursala/closest-pair-problem-2.ursala

@@ -0,0 +1,8 @@
+#import std
+#import flo
+
+clop =
+
+^(fleq-<&l,fleq-<&r); @blrNCCS ~&lrbhthPX2X+ ~&a^& fleq$-&l+ leql/8?al\^(eudist,~&)*altK33htDSL -+
+   ^C/~&rr ^(eudist,~&)*tK33htDSL+ @rlrlPXPlX ~| fleq^\~&lr abs+ minus@llPrhPX,
+   ^/~&ar @farlK30K31XPGbrlrjX3J ^/~&arlhh @W lesser fleq@bl+-

Task/Closest-pair-problem/Ursala/closest-pair-problem-3.ursala

@@ -0,0 +1,23 @@
+test_data =
+
+<
+   (1.547290e+00,3.313053e+00),
+   (5.250805e-01,-7.300260e+00),
+   (7.062114e-02,1.220251e-02),
+   (-4.473024e+00,-5.393712e+00),
+   (-2.563714e+00,-3.595341e+00),
+   (-2.132372e+00,2.358850e+00),
+   (2.366238e+00,-9.678425e+00),
+   (-1.745694e+00,3.276434e+00),
+   (8.066843e+00,-9.101268e+00),
+   (-8.256901e+00,-8.717900e+00),
+   (7.397744e+00,-5.366434e+00),
+   (2.060291e-01,2.840891e+00),
+   (-6.935319e+00,-5.192438e+00),
+   (9.690418e+00,-9.175753e+00),
+   (3.448993e+00,2.119052e+00),
+   (-7.769218e+00,4.647406e-01)>
+
+#cast %eeWWA
+
+example = clop test_data