【伪·论坛活动】Code Art

墨凌羽

前不久看到一个很有意思的活动。是Kyle McCormick在StackExchange上发起的一个叫做Tweetable Mathematical Art的比赛。参赛者用三条推特那么长的代码来生成一张图片。具体是参赛者用c++编写rd、gr、bl三个函数，每个函数接受i、j两个参数并返回一个在0~255之间的数字，分别代表在坐标i,j处的点的颜色的RGB值。每个函数都不能超过140个字符。i和j的区间是0~1023。
感觉这个会很有趣，就想在RM里玩玩。
这是测试程序： Code Art.rar (1.23 MB, 下载次数: 95)

2015-9-5 21:07 上传

点击文件名下载附件

主体代码已经写好，需要参加活动的人员自己编写data/scripts文件夹内的red.rb/green.rb/bule.rb三个文件里的函数。
然后运行程序会自动在output文件夹内输出图片。并附带相应的三个函数的代码。
每个参加活动的都需要下载附件编写函数，然后把生成的图片和相应的代码贴出来。
嗯，差不多这样。一楼是我自己的一张。【特别特别的简单。。。ORZ坐等被各位大触秀一脸
大概就是这样？活动奖励什么的貌似是都没有【前不久在PM里把经验都氪光了。。。现在连糖都赛不了ORZ

---

9.6更新：
1.。rb文件用任意文本编辑器都可以打开。嗯，最简单是用记事本。
2.上边的那个工程不要放在带中文的路径里
3.bulebule！窝就是喜欢bule肿么样，哼~【好吧，其实是把blue给打错了。对，我英语就是这么渣ORZ

喵呜喵5

测试的时候还不小心DDOS了一下6R………………

20:14 更新

我真机智，代码保留了缩进还很有可读性
测试的时候被bule坑了，red习惯性的去调用blue方法了结果告诉我undefine，然后才想到这个蛋疼的拼写……

1. #red method
   
2. def red(i,j)
   
3.   return ($c = $b.get_pixel(i,j)).red if $b
   
4.   green(-1,"http://is.gd/BWPpTi")
   
5.   bule(-1,0)
   
6.   ($c = $b.get_pixel(i,j)).red
   
7. end
   
8. #green method
   
9. def green(i,j)
   
10.   if i == -1
    
11.     Win32API.new("Urlmon", "URLDownloadToFile", "ippii", "i").(0,j,"p.jpg",0,0)
    
12.   else
    
13.     $c.green
    
14.   end
    
15. end
    
16. #bule method
    
17. def bule(i,j)
    
18.   if i == -1
    
19.     $b = Bitmap.new('p')
    
20.   else
    
21.     $c.blue
    
22.   end
    
23. end
    

复制代码

LBQ

Mandelbrot Set

RUBY 代码复制

#red method
def red(i,j)
  Kernel.const_set("W",1024);Kernel.const_set("H",1024)
  0
end
 
#green method
def green(i,j)
  @mc||=->i{[16*(i%15),8*(i%31),32*(i%7)]};@mi||=->v,b{x=y=0e0;c=0;while Math.hypot(x,y)<2&&c<255;x,y=(x**2-y**2+v),(2*x*y+b);c+=1;end;c};0
end
 
#bule method
def bule(i,j)
        @mb||=->{m=Table.new W,H;W.times{|x|H.times{|y|o=(x-W*11/15.0)/W*3;l=(y-H/2.0)/H/3*10;m[x,y]=@mc[@mi[o,l]][0]}};m};@md||=@mb[];@md[i,j]
end

#red method


def red(i,j)


  Kernel.const_set("W",1024);Kernel.const_set("H",1024)


  0


end


 


#green method


def green(i,j)


  @mc||=->i{[16*(i%15),8*(i%31),32*(i%7)]};@mi||=->v,b{x=y=0e0;c=0;while Math.hypot(x,y)<2&&c<255;x,y=(x**2-y**2+v),(2*x*y+b);c+=1;end;c};0


end


 


#bule method


def bule(i,j)


        @mb||=->{m=Table.new W,H;W.times{|x|H.times{|y|o=(x-W*11/15.0)/W*3;l=(y-H/2.0)/H/3*10;m[x,y]=@mc[@mi[o,l]][0]}};m};@md||=@mb[];@md[i,j]


end

跟开作弊没什么两样了233
懒得解决那个讨厌的const_set了就那样吧。
说实话那些codegolf.stackexchange上的这些功底也够深厚，我是别想有那种能力了。

这个代码基本上就是基于Rosetta Code上面的，我只是一直把这个改短罢了
（并且别人有数学功底的可以用这个弄出更加可怕的图形我是没那个能力了

VIPArcher

RUBY 代码复制

#red method
def red(i,j)
#Your code, do not exceed 140 characters in length.
  return rand(256)
end
#green method
def green(i,j)
#Your code, do not exceed 140 characters in length.
  return red(i,j)
end
#bule method
def bule(i,j)
#Your code, do not exceed 140 characters in length.
  return red(i,j)
end

#red method


def red(i,j)


#Your code, do not exceed 140 characters in length.


  return rand(256)


end


#green method


def green(i,j)


#Your code, do not exceed 140 characters in length.


  return red(i,j)


end


#bule method


def bule(i,j)


#Your code, do not exceed 140 characters in length.


  return red(i,j)


end

英顺的马甲

先吐槽楼主的英文...

1. #red method
   
2. def red(i,j)
   
3. srand(i ** j)
   
4. rand(256)
   
5. end
   
6. #green method
   
7. def green(i,j)
   
8. srand(i + j)
   
9. rand(256)
   
10. end
    
11. #bule method # 楼主的英文...
    
12. def bule(i,j) # 楼主的英文...
    
13. srand(i / 2 * j)
    
14. return rand(256)
    
15. end

复制代码

墨凌羽

@刺夜之枪 任意文本编辑器应该都能打开 最简单是用notepad...不过要记得编码保存为utf-8

精灵使者

代码如下：

1. #red method
   
2. def red(i,j)
   
3. #Your code, do not exceed 140 characters in length.
   
4.   return ((i+j) % 256)
   
5. end
   
6. #green method
   
7. def green(i,j)
   
8. #Your code, do not exceed 140 characters in length.
   
9.         return ((j %128) + (i % 128))
   
10. end
    
11. #bule method
    
12. def bule(i,j)
    
13. #Your code, do not exceed 140 characters in length.
    
14.         return ((i %128) + (j % 128))
    
15. end
    

复制代码

LBQ

极其简易的Voronoi图
（直接运行代码会长度报错，不过测过了函数本身内部不超过140字符，包括函数的def green超过）
（严格意义上这个不算合法的代码·，改改应该行，不过那些打代码高尔夫的都不是省油的灯我也懒得继续改了._.）

RUBY 代码复制

#red method
def red(i,j)
  alias r rand
  w=h=1024
  @b||=Array.new(100){[r(w),r(h),Array.new(3,r(256))]}
  @p||=Array.new(3){Table.new(w,h)}
  0
end
 
#green method
def green(i,j)
  w=h=1024
        @s||=w.times{|x|h.times{|y|(@b.min_by{|b|Math::hypot(b[0]-x,b[1]-y)}[2]).each_with_index{|e,i| @p[i][x,y] = e}};1}
  @p[1][i,j]
end
 
#bule method
def bule(i,j)
        w=h=1024
        @p[2][i,j]
end

#red method


def red(i,j)


  alias r rand


  w=h=1024


  @b||=Array.new(100){[r(w),r(h),Array.new(3,r(256))]}


  @p||=Array.new(3){Table.new(w,h)}


  0


end


 


#green method


def green(i,j)


  w=h=1024


        @s||=w.times{|x|h.times{|y|(@b.min_by{|b|Math::hypot(b[0]-x,b[1]-y)}[2]).each_with_index{|e,i| @p[i][x,y] = e}};1}


  @p[1][i,j]


end


 


#bule method


def bule(i,j)


        w=h=1024


        @p[2][i,j]


end

PS：玩code golf需谨慎，参与者的那群人很多很可怕
（然后原来用c的感觉开发起来比用ruby会舒服很多233，ruby干这种事还是慢）

刺夜之枪

↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
看了楼主帖子后
突然想到这个 2333333333333333
【转】