testdata: add circle example

Thanks to twitter's @p9luv for inspiration.
robpike · Feb 4, 2020 · 5dae542 · 5dae542
1 parent ebb3895
commit 5dae542
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/testdata/binary_vector.ivy b/testdata/binary_vector.ivy
@@ -494,6 +494,31 @@
 	**
 	***
 
+# Example inspired by @p9luv.
+op circle n = " *"[1+(y o.+ y=((-n+1)+iota (1+2*n))**2) <= n**2]
+circle 10
+	          *
+	      *********
+	    *************
+	   ***************
+	  *****************
+	  *****************
+	 *******************
+	 *******************
+	 *******************
+	 *******************
+	*********************
+	 *******************
+	 *******************
+	 *******************
+	 *******************
+	  *****************
+	  *****************
+	   ***************
+	    *************
+	      *********
+	          *
+
 # Encode (the names encode and decode seem backwards to me, but that's APL for ya.)
 2 encode 3
 	1