Forwarded from dnaugsuz
%w[y x].each_with_index do |d, di|
%i[< >].each_with_index do |opt, oi|
if instance_variable_get("@initial_t#{d}").send(opt, instance_variable_get("@light_#{d}"))
var = instance_variable_get("@inital_t#{d}")
act = case [di, oi]
when [0, 0]; [1 ,'S']
when [0, 1]; [(), 'N']
when [1, 0]; [1, 'E']
when [1, 1]; [(), 'W']
end
result << act[1]
var += 1 if act[0]
end
end
end
🌑 (回去再写写 GeekApk API 库算了...)
或许 更复杂而已 不好（写来玩玩
Forwarded from DRagon Vase ｜ Nix, shooting yourself in the foot.
提问
这段 if condition 可以转换成 case when 吗？
if @initial_ty < @light_y
result << 'S'
@initial_ty += 1
end
if @initial_ty > @light_y
result << 'N'
@initial_ty -= 1
end
if @initial_tx < @light_x
result << 'E'
@initial_tx += 1
end
if @initial_tx > @light_x
result << 'W'
@initial_tx -= 1
end
这段 if condition 可以转换成 case when 吗？
Forwarded from duangsuse::Echo
既然都有人这么明确的表态了吧....
我就不藏了，
其实我对
不过我支持 @iVanilla 的看法，虽然肯定会很花时间
现在其实在 GeekApk 的几个项目 GeekPage, GeekNews, SilverFish 里不能脱身，以后还有突然脑洞的一个基于宏的函数式编程语言 Lime(Little Incomplete macro expander)
会使用 Ruby, C, Java 等语言实现，GeekApk 的只能先做了.... 做完 GeekNews 写了文章我就跑去写 Ruby 版的 Lime(
这门语言的构造和解释、解析器、展开器、C 版本的 GC 系统，内部数据和(解释器的)依赖都已经钦定了
Ruby 的已经详细到可以开始做了
跑题了，，，，我还是随便写一行 Lime sexp
我就不藏了，
其实我对
应用做了高强度的混淆措施，它的代码和资源全混淆，并且核心内容采用 C++ native 实现 基本看法不是很好不过我支持 @iVanilla 的看法，虽然肯定会很花时间
现在其实在 GeekApk 的几个项目 GeekPage, GeekNews, SilverFish 里不能脱身，以后还有突然脑洞的一个基于宏的函数式编程语言 Lime(Little Incomplete macro expander)
会使用 Ruby, C, Java 等语言实现，GeekApk 的只能先做了.... 做完 GeekNews 写了文章我就跑去写 Ruby 版的 Lime(
这门语言的构造和解释、解析器、展开器、C 版本的 GC 系统，内部数据和(解释器的)依赖都已经钦定了
Ruby 的已经详细到可以开始做了
跑题了，，，，我还是随便写一行 Lime sexp
(~
(-> 'boys ('' Rikka ice100 pandecheng Yutta))
(-> 'say-hello (# (name)
(@ "#{name} 女装哦 🌚")))
(each boys say-hello)
)
Forwarded from duangsuse::Echo
注：最终都要展开成
上面相应的定义：
(. [internal-expander-id] [args]) 的.... 🌑上面相应的定义：
(-> 'each (# (ary macro)
(? ([()]? ary) ()
(~ (macro (^ ary))
(each ($ ary))))))
-> 内建宏，接受 (name value)~ 内建宏，接受 (*sexp)，对传入的数据不作任何处理each 等价的定义已经给出[()]? 如果数组为空 返回 #t 否则 #f (在这里只会用到这个定义)? 接受最多三个S-表达式，这里的定义是 (? cond-macro true-value false-macro)^/$ car/cdr📊 🌚 感觉这段代码怎么样?
看不董
优雅 [1]
└ duang suse|维修工|SSF🐟|高一...
难看 [0]
已经有 👤 1 个人投票了。
看不董
优雅 [1]
└ duang suse|维修工|SSF🐟|高一...
难看 [0]
已经有 👤 1 个人投票了。
(~
(-> each (# (ary procedure)
(? (null? ary) #n)
(~ (procedure (^ ary)) (each ($ ary)))))
(-> boys (,' Rikka ice1000 pandecheng Yuuta))
(-> say-hello (# name (@ "#{name} 女装哦 👗")))
(each boys say-hello))
duangsuse::Echo
(~ (-> each (# (ary procedure) (? (null? ary) #n) (~ (procedure (^ ary)) (each ($ ary))))) (-> boys (,' Rikka ice1000 pandecheng Yuuta)) (-> say-hello (# name (@ "#{name} 女装哦 👗"))) (each boys say-hello))
(-> each (# (ary procedure)
(? (null? ary) #n)
(procedure (^ ary)) (each ($ ary))))
(-> boys (,' Rikka ice1000 pandecheng Yuuta))
(-> say-hello (# name (@ "#{name} 女装哦 👗")))
(each boys say-hello)
duangsuse::Echo
(-> each (# (ary procedure) (? (null? ary) #n) (procedure (^ ary)) (each ($ ary)))) (-> boys (,' Rikka ice1000 pandecheng Yuuta)) (-> say-hello (# name (@ "#{name} 女装哦 👗"))) (each boys say-hello)
新增加的 OO 写法：
.... 成功又让我考虑了一会 OO 实现问题.. 写着好看就无所谓吧
(-> Array.each (# (ary procedure)
(? (null? ary) #n)
(procedure (^ ary)) (each ($ ary))))
(-> boys (,' Rikka ice1000 pandecheng Yuuta))
(-> say-hello (# name (@ "#{name} 女装哦 👗")))
(boys.each say-hello)
.... 成功又让我考虑了一会 OO 实现问题.. 写着好看就无所谓吧
Forwarded from Solidot
院士称微软故意放任 Windows 盗版
中国工程院院士倪光南接受采访（视频）时发表了一个阴谋论的观点，声称从 Windows 7 开始，微软故意让你盗版。他说，“从 Win7 开始，都是微软允许你装盗版，盗版的 ID 是一个 ID，微软当然知道谁装盗版，谁没装盗版，它让你装盗版，是因为国产的起不来，它宁可不收钱让你用这个软件。”倪光南称，“严格意义上说，这不是盗版，是微软的一个策略。互联网公司从来不说你是盗版，你说 APP 是盗版吗？”“互联网公司 APP 都免费给用户用，没有互联网公司说中国用户是小偷。”容忍盗版和纵容盗版是有区别的，微软的软件在商业模式上和今天的 APP 也是有很大区别的，当然微软现在也推行软件即服务了，Windows 部门没有以前重要了。Media
https://www.solidot.org/story?sid=56315
中国工程院院士倪光南接受采访（视频）时发表了一个阴谋论的观点，声称从 Windows 7 开始，微软故意让你盗版。他说，“从 Win7 开始，都是微软允许你装盗版，盗版的 ID 是一个 ID，微软当然知道谁装盗版，谁没装盗版，它让你装盗版，是因为国产的起不来，它宁可不收钱让你用这个软件。”倪光南称，“严格意义上说，这不是盗版，是微软的一个策略。互联网公司从来不说你是盗版，你说 APP 是盗版吗？”“互联网公司 APP 都免费给用户用，没有互联网公司说中国用户是小偷。”容忍盗版和纵容盗版是有区别的，微软的软件在商业模式上和今天的 APP 也是有很大区别的，当然微软现在也推行软件即服务了，Windows 部门没有以前重要了。Media
https://www.solidot.org/story?sid=56315
🇨🇳 中国特色，虽然也有真正的好人，势单力孤啊 可惜大部分都是这种啥都不做光对心别人的 🌚... 唉
可惜一个学计算机科学的大学生都用 Rust 编写了一个完整的操作系统，某些「院士」呢？？？
https://redox-os.org #dev #Lowlvl_backend #China #emmm #dev
可惜一个学计算机科学的大学生都用 Rust 编写了一个完整的操作系统，某些「院士」呢？？？
https://redox-os.org #dev #Lowlvl_backend #China #emmm #dev
www.redox-os.org
Redox - Your Next(Gen) OS - Redox - Your Next(Gen) OS
The Redox official website