8
|
17367 Views
|
10 Replies
|
12 Total Likes
View groups...
Share
GROUPS:

# Wolfram Tweet-a-Program Launches Today

Posted 10 years ago
10 Replies
Sort By:
Posted 10 years ago
 Give it a try: Fractal Fun: Tweet-a-Program Mandelbrot Code Challenge ImageAdd[Rasterize@Rotate[MandelbrotSetPlot[{-1.9+I,-.85I},ColorFunction->(If[#3>.9,Black,White]&)],3Pi/2],=[Mandelbrot Pic]] SourceBernat
Posted 10 years ago
 Slightly shorter version that should fit in a tweet: b = c = ConstantArray[0, {256, 256, 3}]; s = 21 ;; 236; b[[All, s]] = c[[s, All]] = Tuples[{0, .5, .05, 0, .5, .05}, 3]; Image[b + c] 
Posted 10 years ago
 Illian, Thank you. It runs as: @wolframtap b = c = ConstantArray[0, {256, 256, 3}]; s = 21;;236; b[[All, s]] = c[[s, All]] = Tuples[{0, .5, .5, 0, .5, .5}, 3];Image[b + c]I had to cut into my variables!
Posted 10 years ago
 I like it! (Stephanie: Thank you for telling me about this)When do we go to 156,000 cores?A really good programmer might be able to take this "Tuple Imagery" program down to tweet size. Please try.b = c = Table[{0, 0, 0}, {x, 1, 256}, {y, 1, 256}]; t = Tuples[{0, .5, .05, 0, .5, .05}, 3]; For[j = 1, j <= 216, j++, b[[All, j + 20]] = c[[j + 20, All]] = t[[j]]]; Image[b + c]It's 41 characters over the limit.Really close:t = Tuples[N@{0, 1, 0.5, 0, -1, -0.5}, 3]; l= Length@t; Image[Array[Total@t[[{##}]]&,{l,l}]]
Posted 10 years ago
 Also, I'm getting some double results.
Posted 10 years ago
 Yep, a known bug. Working on it, though we might not get to fully sorted out until tomorrow...
Posted 10 years ago
 Does it use the same protection against malicious input as standard Cloud APIs?
Posted 10 years ago
 Yes, we have sandboxing that is part and parcel of Wolfram Cloud. We also filter some obvious useless inputs, and return error messages for failed code, but people are coming up with other examples of things that just aren't too useful that we will work on filtering. And we are monitoring for troll silliness.
Posted 10 years ago
 I really like this image which Arnoud B. generously allowed me to steal from his Tweet-a-Code testing collection:Graphics[{EdgeForm[],Table[{Hue[RandomReal[]],Opacity[0.1],ConicHullRegion[{RandomReal[1,2]},RandomReal[{-1,1},{2,2}]]},{75}]}]http://t.co/6GieKbLaYD
Posted 10 years ago
 Shades of Kandinsky. Well, lines too.