Data update

Task/Generator-Exponential/Icon/generator-exponential-2.icon

@@ -0,0 +1,9 @@
+procedure noncubesquares()  #: filter for squares that aren't cubes
+   cu := create mthpower(3)
+   c := @cu
+   every s := mthpower(2) do{
+      if s > c then c := @cu
+      if s == c then next
+      suspend s
+    }
+end

Task/Generator-Exponential/Tcl/generator-exponential-3.tcl

@@ -40,7 +40,7 @@ generator foreach x [squares] y [cubes] {
 
     lappend acc $y
 
-    if { ! [expre {$x in $acc}] } { lappend comm $x }
+    if { ! [expr {$x in $acc}] } { lappend comm $x }
 
     if { [llength $comm] > $limit } {break}
 }