查看: 13512|回复: 44

[讨论] 大家会哪几种代码?

[复制链接]

矿工

梦石
0
星屑
134
在线时间
898 小时
注册时间
2012-10-5
回帖
1303
发表于 2014-7-30 13:42:39 | 显示全部楼层 |阅读模式
本帖最后由 876加几 于 2014-7-30 17:50 编辑

我会Ruby、VB和VB.NET。
代码演示:
[pre lang="Ruby" line="1"]
array = [1,2,3,4]
array.clear
p array #=>[]
p array[0] #=> nil
class Array
  def self.plus(ary1, ary2)
    return ary1 + ary2
  end
end
p Array.plus([1],[2]) #=>[1,2]
[/pre]
[pre lang="VB" line="1"]
Dim i As Integer
For i = 0 To 10
  MsgBox(i.ToString) '=>0~10
End For
'其实是VB.NET
[/pre]
好了,请大家尽快投票吧。
多选投票: ( 最多可选 6 项 ), 共有 33 人参与投票 查看投票参与人

投票已经结束

25.88% (22)
12.94% (11)
4.71% (4)
11.76% (10)
15.29% (13)
16.47% (14)
12.94% (11)
您所在的用户组没有投票权限
呃,发糖贴好冷清呀!

百合控

梦石
0
星屑
6548
在线时间
1275 小时
注册时间
2013-8-21
回帖
3522

开拓者

发表于 2014-7-30 14:04:56 | 显示全部楼层
本帖最后由 余烬之中 于 2014-7-30 16:44 编辑

你没发现ruby有两项吗

我还会伪代码(这是只有笨蛋才能看到的神奇文字

[pre lang="ruby" line="1"]eval "Dim i As Integer
For i = 0 To 10
  MsgBox(i.ToString) '=>0~10
Next".each_line.map{|line|
  case line
  when /^\s*Dim/
    line.sub!(/^Dim/){}
    line.gsub!(/\s+(.+)\s+As\s+(.+)($|,)/){ "#$1 = #{ {"Integer" => "0"}[$2] }" }
  when /^\s*For/
    line.sub!(/^For\s+(.+)\s+=\s+(\d+)\s+To\s+(\d+)/){ "#$2.upto(#$3){|#$1|" }
  when /^\s*Next/
    line.sub!(/^\s*Next.*/){ "}" }
  else
    line.gsub!(/MsgBox\((.*)\)/){ "puts #$1"}
    line.gsub!(/'/){ "#" }
    line.gsub!(/([^.]+)\.([^.]+?)(\s+.+|$)/){ "#$1.#{ {"ToString" => "to_s"}[$2] }#$3" }
  end
  line
}.join[/pre]

点评

角虫的世界真可怕已经不能理解了角虫肯定不看这里  发表于 2014-7-30 21:14
两项Ruby改不了了……  发表于 2014-7-30 21:02
其实我们是来刷3分的不是吗 好球  发表于 2014-7-30 17:42
我猜还是不能看,(看到是笨蛋  发表于 2014-7-30 17:40
我很坦率的做个傻瓜才看的东西放在这里  发表于 2014-7-30 17:38
萌新瑟瑟发抖
看到我请叫我去干活
回复

使用道具 举报

梦石
0
星屑
167
在线时间
673 小时
注册时间
2013-6-15
回帖
663
发表于 2014-7-30 14:10:58 | 显示全部楼层
就会一点从师兄那学到的C
回复

使用道具 举报

故九江太守

梦石
0
星屑
314
在线时间
2158 小时
注册时间
2012-12-5
回帖
4323
发表于 2014-7-30 14:15:04 | 显示全部楼层
半种  
回复

使用道具 举报

…あたしは天

梦石
0
星屑
2308
在线时间
4033 小时
注册时间
2010-10-4
回帖
10548

开拓者贵宾

发表于 2014-7-30 14:19:08 | 显示全部楼层
本帖最后由 taroxd 于 2014-7-30 14:35 编辑

你没发现你 Ruby 的代码是错误的吗?别跟我说你这一段是在 Array.instance_eval 里面的

VB我也记得是 Next i 而不是 End For 吧?

你觉得怎样才算【会】呢?

看得懂语法:Lisp、C、C++、Python、VB、Ruby
写得出简单程序:C、C++、Ruby(VB仅限高中会考等级所以不算)
写得出程序卖萌:Ruby

代码演示:
https://rpg.blue/thread-368425-1-1.html
https://rpg.blue/thread-368980-1-1.html

点评

确实是Next [i]  发表于 2014-7-31 08:33
第一个其实我也会……  发表于 2014-7-30 18:10
于是你现在还是错的  发表于 2014-7-30 17:55
对不起,忙中出错  发表于 2014-7-30 17:51
其实Next不要i也可以 当然End For这种语法我还是没有见过的  发表于 2014-7-30 16:43
回复

使用道具 举报

梦石
0
星屑
2310
在线时间
5539 小时
注册时间
2011-1-10
回帖
6353

青铜编剧史诗剧作家剧作品鉴家

发表于 2014-7-30 14:24:52 | 显示全部楼层
我都会!…………加减乘除……

点评

我同学会关电闸……  发表于 2014-7-31 08:34
我妈会拔电源线 你们都弱爆了  发表于 2014-7-30 15:17
我还会输出!  发表于 2014-7-30 14:58
我还会Exit!0w0  发表于 2014-7-30 14:50
我还会代入!0w0  发表于 2014-7-30 14:32
回复

使用道具 举报

…あたしは天

梦石
0
星屑
2308
在线时间
4033 小时
注册时间
2010-10-4
回帖
10548

开拓者贵宾

发表于 2014-7-30 14:31:15 | 显示全部楼层
余烬之中 发表于 2014-7-30 14:04
你没发现ruby有两项吗

我还会伪代码(这是只有笨蛋才能看到的神奇文字

[pre lang="ruby" line="1"]def int(_) end
def main(&b)
  Object.send(:define_method, :main, &b)
  main
end
std = Module.new do
  def self.cout; STDOUT; end
  def self.endl; "\n"; end
end


#include <iostream>
int main() {
  std::cout << "Hello world!" << std::endl;
  return 0;
}[/pre]

点评

char* str;【笑  发表于 2014-7-30 14:33
回复

使用道具 举报

…あたしは天

梦石
0
星屑
2308
在线时间
4033 小时
注册时间
2010-10-4
回帖
10548

开拓者贵宾

发表于 2014-7-30 14:38:01 | 显示全部楼层
@余烬之中  

Ruby 2.0 环境

[pre lang="ruby" line="1"]Array.instance_eval do
  class Array
    $array = self
  end
end

p $array.new # [][/pre]
回复

使用道具 举报

百合控

梦石
0
星屑
6548
在线时间
1275 小时
注册时间
2013-8-21
回帖
3522

开拓者

发表于 2014-7-30 14:40:28 | 显示全部楼层
本帖最后由 余烬之中 于 2014-7-30 14:59 编辑
taroxd 发表于 2014-7-30 14:38
@余烬之中  

Ruby 2.0 环境


1.9.3
001.png

已证实
001.png

点评

已证实  发表于 2014-7-30 14:59
2.0 在 irb 这么做结果也是一样的  发表于 2014-7-30 14:46
因为 irb 是 class_eval 环境而不是 instance_eval 吧  发表于 2014-7-30 14:46
萌新瑟瑟发抖
看到我请叫我去干活
回复

使用道具 举报

梦石
0
星屑
122
在线时间
552 小时
注册时间
2012-8-18
回帖
1392
发表于 2014-7-30 14:45:22 | 显示全部楼层
看见LS几个触手秀Tentacles什么的我就不想多说了【
果然LZ对代码的认识就是顶楼那几种?

点评

+1  发表于 2014-7-30 15:32
我要填坑!我要背单词!我要学日语!我要每天锻炼!
好吧呵呵= =
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部