设为首页收藏本站|繁體中文
开启辅助访问

Project1

 找回密码
 注册会员
新版主页
搜索
Project1»广场 › 外层空间 › 水世界 › 又被触了一个新姿势
12下一页
返回列表 发新帖
查看: 2408|回复: 10
打印 上一主题 下一主题

[胡扯] 又被触了一个新姿势

[复制链接]
taroxd

Lv3.寻梦者 (版主)

…あたしは天使なんかじゃないわ

梦石
0
星屑
2208
在线时间
4033 小时
注册时间
2010-10-4
帖子
10779

开拓者贵宾
跳转到指定楼层
1楼
发表于 2014-12-8 17:50:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

加入我们，或者，欢迎回来。

您需要 登录 才可以下载或查看，没有帐号？注册会员

x
FizzBuzz问题描述：写一个程序，打印数字1到100，3的倍数打印“Fizz”来替换这个数，5的倍数打印“Buzz”，对于既是3的倍数又是5的倍数的数字打印“FizzBuzz”

在读一本英语课外读物的时候看到了这个……

感想似乎有点多余了，嗯。直接上代码吧。

RUBY 代码复制
  1. TRUE  = -> x { -> y { x } }
  2. FALSE = -> x { -> y { y } }
  3.  
  4. IF = -> b { b }
  5.  
  6. Z = -> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }
  7.  
  8. PAIR = -> x { -> y { -> f { f[x][y] } } }
  9. LEFT = -> p { p[-> x { -> y { x } } ] }
  10. RIGHT = -> p { p[-> x { -> y { y } } ] }
  11.  
  12. ZERO  = -> p { -> x { x } }
  13. ONE   = -> p { -> x { p[x] } }
  14.  
  15. INCREMENT = -> n { -> p { -> x { p[n[p][x]] } } }
  16. SLIDE = -> p { PAIR[RIGHT[p]][INCREMENT[RIGHT[p]]] }
  17. DECREMENT = -> n { LEFT[n[SLIDE][PAIR[ZERO][ZERO]]] }
  18.  
  19. IS_ZERO = -> n { n[-> x { FALSE }][TRUE] }
  20. IS_LESS_OR_EQUAL =
  21.   -> m { -> n {
  22.     IS_ZERO[SUBTRACT[m][n]]
  23.   } }
  24.  
  25.  
  26. ADD = -> m { -> n { n[INCREMENT][m] } }
  27. SUBTRACT = -> m { -> n { n[DECREMENT][m] } }
  28. MULTIPLY = -> m { -> n { n[ADD[m]][ZERO] } }
  29. POWER = -> m { -> n { n[MULTIPLY[m]][ONE] } }
  30. DIV =
  31.   Z[-> f { -> m { -> n {
  32.     IF[IS_LESS_OR_EQUAL[n][m]][
  33.       -> x {
  34.         INCREMENT[f[SUBTRACT[m][n]][n]][x]
  35.       }
  36.     ][
  37.       ZERO
  38.     ]
  39.   } } }]
  40. MOD =
  41.   Z[-> f { -> m { -> n {
  42.     IF[IS_LESS_OR_EQUAL[n][m]][
  43.       -> x {
  44.         f[SUBTRACT[m][n]][n][x]
  45.       }
  46.     ][
  47.       m
  48.     ]
  49.   } } }]
  50.  
  51. TWO   = INCREMENT[ONE]
  52. THREE = INCREMENT[TWO]
  53. FOUR  = INCREMENT[THREE]
  54. FIVE  = INCREMENT[FOUR]
  55.  
  56. TEN     = MULTIPLY[TWO][FIVE]
  57. FIFTEEN = ADD[TEN][FIVE]
  58. HUNDRED = MULTIPLY[TEN][TEN]
  59.  
  60. EMPTY = PAIR[TRUE][TRUE]
  61. UNSHIFT = -> l { -> x {
  62.             PAIR[FALSE][PAIR[x][l]]
  63.           } }
  64. IS_EMPTY = LEFT
  65. FIRST = -> l { LEFT[RIGHT[l]] }
  66. REST  = -> l { RIGHT[RIGHT[l]] }
  67.  
  68. RANGE =
  69.   Z[-> f {
  70.       -> m { -> n {
  71.         IF[IS_LESS_OR_EQUAL[m][n]][
  72.           -> x {
  73.             UNSHIFT[f[INCREMENT[m]][n]][m][x]
  74.           }
  75.         ][
  76.           EMPTY
  77.         ]
  78.     } }
  79.   }]
  80.  
  81. FOLD =
  82.   Z[-> f {
  83.     -> l { -> x { -> g {
  84.       IF[IS_EMPTY[l]][
  85.         x
  86.       ][
  87.         -> y {
  88.           g[f[REST[l]][x][g]][FIRST[l]][y]
  89.         }
  90.       ]
  91.     } } }
  92.   }]
  93.  
  94. MAP =
  95.   -> k { -> f {
  96.     FOLD[k][EMPTY][
  97.       -> l { -> x { UNSHIFT[l][f[x]] } }
  98.     ]
  99.   } }
  100.  
  101. PUSH =
  102.   -> l {
  103.     -> x {
  104.       FOLD[l][UNSHIFT[EMPTY][x]][UNSHIFT]
  105.     }
  106.   }
  107.  
  108. B = TEN
  109. F = INCREMENT[B]
  110. I = INCREMENT[F]
  111. U = INCREMENT[I]
  112. ZED = INCREMENT[U]
  113. FIZZ = UNSHIFT[UNSHIFT[UNSHIFT[UNSHIFT[EMPTY][ZED]][ZED]][I]][F]
  114. BUZZ = UNSHIFT[UNSHIFT[UNSHIFT[UNSHIFT[EMPTY][ZED]][ZED]][U]][B]
  115. FIZZBUZZ = UNSHIFT[UNSHIFT[UNSHIFT[UNSHIFT[BUZZ][ZED]][ZED]][I]][F]
  116.  
  117. TO_DIGITS =
  118.   Z[-> f { -> n { PUSH[
  119.     IF[IS_LESS_OR_EQUAL[n][DECREMENT[TEN]]][
  120.       EMPTY
  121.     ][
  122.       -> x {
  123.         f[DIV[n][TEN]][x]
  124.       }
  125.     ]
  126.   ][MOD[n][TEN]] } }]
  127.  
  128. SOLUTION = MAP[RANGE[ONE][HUNDRED]][-> n {
  129.   IF[IS_ZERO[MOD[n][FIFTEEN]]][
  130.     FIZZBUZZ
  131.   ][IF[IS_ZERO[MOD[n][THREE]]][
  132.     FIZZ
  133.   ][IF[IS_ZERO[MOD[n][FIVE]]][
  134.     BUZZ
  135.   ][
  136.     TO_DIGITS[n]
  137.   ]]]
  138. }]
  139.  
  140. def to_integer(proc)
  141.   proc[-> n { n + 1 }][0]
  142. end
  143.  
  144. def to_boolean(proc)
  145.   proc[true][false]
  146. end
  147.  
  148. def to_array(proc)
  149.   array = []
  150.   until to_boolean(IS_EMPTY[proc])
  151.     array.push(FIRST[proc])
  152.     proc = REST[proc]
  153.   end
  154.   array
  155. end
  156.  
  157. def to_char(c)
  158.   '0123456789BFiuz'.slice(to_integer(c))
  159. end
  160.  
  161. def to_string(s)
  162.   to_array(s).map { |c| to_char(c) }.join
  163. end
  164.  
  165. to_array(SOLUTION).each do |p|
  166.   puts to_string(p)
  167. end


无常量版:
RUBY 代码复制
  1. -> k { -> f { -> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f { -> l { -> x { -> g { -> b { b }[-> p { p[-> x { -> y { x } }] }[l]][x][-> y { g[f[-> l { -> p { p[-> x { -> y { y } }] }[-> p { p[-> x { -> y { y } }] }[l]] }[l]][x][g]][-> l { -> p { p[-> x { -> y { x } }] }[-> p { p[-> x { -> y{ y } }] }[l]] }[l]][y] }] } } } }][k][-> x { -> y { -> f { f[x][y] } } }[-> x{ -> y { x } }][-> x { -> y { x } }]][-> l { -> x { -> l { -> x { -> x { -> y{ -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[l][f[x]] } }] } }[-> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y{ x[x][y] }] }] }[-> f { -> m { -> n { -> b { b }[-> m { -> n { -> n { n[-> x{ -> x { -> y { y } } }][-> x { -> y { x } }] }[-> m { -> n { n[-> n { -> p { p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x{ -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { ->y { y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]] } }[m][n]][-> x { -> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[f[-> n { -> p { -> x { p[n[p][x]] } } }[m]][n]][m][x] }][-> x { ->y { -> f { f[x][y] } } }[-> x { -> y { x } }][-> x { -> y { x } }]] } } }][-> p{ -> x { p[x] } }][-> p { -> x{ p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[x]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]] } }]][->n { -> b { b }[-> n { n[-> x { -> x { -> y { y } } }][-> x { -> y { x } }] }[-> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f { -> m{ -> n { -> b { b }[-> m { -> n { -> n { n[-> x { -> x { -> y { y } } }][-> x{ -> y { x } }] }[-> m { -> n { n[-> n { -> p { p[-> x { -> y { x } }] }[n[-> p{ -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n{ -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { -> y { y } }] }[p]]] }][-> x{ -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]] } }[n][m]][-> x { f[-> m { -> n { n[-> n { -> p { p[-> x { -> y{ x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y{ y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { -> y{ y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p{ -> x { x } }]]] }][m] } }[m][n]][n][x] }][m] } } }][n][-> p { -> x{ p[p[p[p[p[p[p[p[p[p[p[p[p[p[p[x]]]]]]]]]]]]]]] } }]]][-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f{ f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { ->y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { ->y { -> f { f[x][y] } } }[x][l]] } }[-> x { -> y { -> f { f[x][y] } } }[-> x { -> y { x } }][-> x { -> y { x } }]][-> n { -> p { -> x { p[n[p][x]] } } }[-> n{ -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { ->x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x{ p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x{ p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x{ p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m{ -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x{ x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { ->p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x{ p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]][-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]][-> n { -> p{ -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x{ x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m{ -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x{ p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p{ -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x{ p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]][-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x{ p[p[p[p[p[x]]]]] } }]]]][-> b { b }[-> n { n[-> x { -> x { -> y { y } } }][-> x { -> y { x } }] }[-> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f { -> m { -> n { -> b { b }[-> m { -> n { -> n { n[-> x { -> x{ -> y { y } } }][-> x { -> y { x } }] }[-> m { -> n { n[-> n { -> p { p[-> x{ -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { -> y{ y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p{ -> x { x } }]]] }][m] } }[m][n]] } }[n][m]][-> x { f[-> m { -> n { n[-> n { -> p { p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p{ p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { -> y { y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x{ x } }][-> p { -> x { x } }]]] }][m] } }[m][n]][n][x] }][m] } } }][n][-> p { -> x { p[p[p[x]]] } }]]][-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x{ -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { ->x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x{ -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> x { -> y { -> f { f[x][y] } } }[-> x { -> y { x } }][-> x { -> y { x } }]][-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x{ p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x{ p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p{ -> x { p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x { p[n[p][x]] } } }[-> n{ -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { ->x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x{ p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x{ p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m{ -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x{ x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]][-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x{ p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]][-> b { b }[-> n { n[-> x{ -> x { -> y { y } } }][-> x { -> y { x } }] }[-> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f { -> m { -> n { -> b { b }[-> m{ -> n { -> n { n[-> x { -> x { -> y { y } } }][-> x { -> y { x } }] }[-> m { -> n { n[-> n { -> p { p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { -> y { y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[->p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]] } }[n][m]][-> x { f[-> m { -> n { n[-> n { -> p { p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x{ p[n[p][x]] } } }[-> p { p[-> x { -> y { y } }] }[p]]] }][-> x { -> y { -> f{ f[x][y] } } }[-> p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]][n][x] }][m] } } }][n][-> p { -> x { p[p[p[p[p[x]]]]] } }]]][-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f{ f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> x { -> y { -> f { f[x][y] } } }[-> x{ -> y { x } }][-> x { -> y { x } }]][-> n { -> p { -> x { p[n[p][x]] } } }[->n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n{ -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x{ p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x{ p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x{ p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m{ -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x{ x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]]][-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> n { -> p { -> x { p[n[p][x]] } } }[-> m { -> n { n[-> m { -> n { n[-> n { ->p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x{ p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]]]]][-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x { p[p[p[p[p[x]]]]] } }]]][-> f { -> x{ f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f { -> n { -> l { -> x { -> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f{ -> l { -> x { -> g { -> b { b }[-> p { p[-> x { -> y { x } }] }[l]][x][-> y{ g[f[-> l { -> p { p[-> x { -> y { y } }] }[-> p { p[-> x { -> y { y } }] }[l]] }[l]][x][g]][-> l { -> p { p[-> x { -> y { y } }] }[-> p { p[-> x { -> y{ y } }] }[l]] }[l]][y] }] } } } }][l][-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }[-> x { -> y { -> f { f[x][y] } } }[-> x { -> y { x } }][-> x { -> y { x } }]][x]][-> l { -> x { -> x { -> y { -> f { f[x][y] } } }[-> x { -> y { y } }][-> x { -> y { -> f { f[x][y] } } }[x][l]] } }] } }[-> b { b }[-> m { -> n { -> n { n[-> x { -> x { -> y { y } } }][-> x { -> y { x } }] }[-> m { -> n { n[-> n { -> p{ p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x{ -> y { y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]] } }[n][-> n { -> p { p[-> x { -> y{ x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y{ y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { -> y{ y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p{ -> x { x } }]]] }[-> m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p{ -> x { p[p[p[p[p[x]]]]] } }]]]][-> x { -> y { -> f { f[x][y] } } }[-> x { ->y { x } }][-> x { -> y { x } }]][-> x { f[-> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f { -> m { -> n { -> b { b }[-> m { -> n { -> n { n[-> x { -> x { -> y { y } } }][-> x { -> y { x } }] }[-> m { -> n { n[-> n { -> p { p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p{ p[-> x { -> y { y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]] } }[n][m]][-> x { -> n { -> p { -> x { p[n[p][x]] } } }[f[-> m { -> n { n[-> n { -> p { p[-> x { -> y{ x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y{ y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x { -> y{ y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p{ -> x { x } }]]] }][m] } }[m][n]][n]][x] }][-> p { -> x { x } }] } } }][n][->m { -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x{ p[p[p[p[p[x]]]]] } }]]][x] }]][-> f { -> x { f[-> y { x[x][y] }] }[-> x { f[-> y { x[x][y] }] }] }[-> f { -> m { -> n { -> b { b }[-> m { -> n { -> n { n[-> x { -> x { -> y { y } } }][-> x { -> y { x } }] }[-> m { -> n { n[-> n { -> p{ p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p { p[-> x{ -> y { y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]] } }[n][m]][-> x { f[-> m { -> n { n[-> n { -> p { p[-> x { -> y { x } }] }[n[-> p { -> x { -> y { -> f { f[x][y] } } }[-> p { p[-> x { -> y { y } }] }[p]][-> n { -> p { -> x { p[n[p][x]] } } }[-> p{ p[-> x { -> y { y } }] }[p]]] }][-> x { -> y { -> f { f[x][y] } } }[-> p { -> x { x } }][-> p { -> x { x } }]]] }][m] } }[m][n]][n][x] }][m] } } }][n][-> m{ -> n { n[-> m { -> n { n[-> n { -> p { -> x { p[n[p][x]] } } }][m] } }[m]][-> p { -> x { x } }] } }[-> p { -> x { p[p[x]] } }][-> p { -> x{ p[p[p[p[p[x]]]]] } }]]] } }][n]]]] }]

评分

参与人数 3星屑 +131 收起 理由
zaiy2863 + 9 第二个是什么乱七八糟的完全看不懂.
永燃的狂炎 + 2
VIPArcher + 120 看标题识楼主系列

查看全部评分

taroxd.github.io
RPG制作大师授权素材推广计划
Glimmer/Fatal Guise
回复

使用道具 举报

pigsss

Lv3.寻梦者

梦石
0
星屑
1681
在线时间
2205 小时
注册时间
2010-6-27
帖子
1299
2楼
发表于 2014-12-8 19:19:06 | 只看该作者
本帖最后由 pigsss 于 2014-12-8 19:20 编辑


RUBY 代码复制
  1. for n in 1..100
  2.   if n % 3 == 0
  3.     s = "Fizz"
  4.     if n % 5 == 0
  5.       s += "Buzz"
  6.     end
  7.     p s
  8.   elsif n % 5 == 0
  9.     s = "Buzz"
  10.     if n % 3 == 0
  11.       s = "Fizz" + s
  12.     end
  13.     p s
  14.   else
  15.     p n
  16.   end
  17. end


那么长串是要做什么邪恶的事情

于是我也广告下…
回复 支持 反对

使用道具 举报

taroxd

Lv3.寻梦者 (版主)

…あたしは天使なんかじゃないわ

梦石
0
星屑
2208
在线时间
4033 小时
注册时间
2010-10-4
帖子
10779

开拓者贵宾
3楼
 楼主| 发表于 2014-12-9 12:33:29 | 只看该作者
本帖最后由 taroxd 于 2014-12-9 12:52 编辑
pigsss 发表于 2014-12-8 19:19
for n in 1..100
  if n % 3 == 0
    s = "Fizz"


禁止赋值，禁止定义方法，禁止使用除了 proc 以外所有的对象。要打印估计是不太可能的（因为不能使用字符串），但是表示出要打印的东西还是可以的（见主楼第二段代码）

简单地说就是纯lambda演算啦~ 我现在才知道 lambda 演算是这么玩的

正常的脚本我也会写啊=_ =

RUBY 代码复制
  1. puts (1..100).map { |n| (n % 15).zero? ? 'FizzBuzz' : (n % 5).zero? ? 'Buzz' : (n % 3).zero? ? 'Fizz' : n }



@zaiy2863

第二段就是第一段，并且把常量代入了。

@无脑之人
我知道你也玩这个，嗯

点评

pigsss
离散数学那类的？  发表于 2014-12-9 15:17
taroxd.github.io
RPG制作大师授权素材推广计划
Glimmer/Fatal Guise
回复 支持 反对

使用道具 举报

龙和许也

Lv4.逐梦者

梦石
4
星屑
4454
在线时间
6784 小时
注册时间
2014-1-6
帖子
5052

开拓者
4楼
发表于 2014-12-9 13:44:43 | 只看该作者
如果我把无常量版放入游戏会咋样？

点评

taroxd
什么都不会发生  发表于 2014-12-9 17:16
回复 支持 反对

使用道具 举报

orochi2k

Lv4.逐梦者

梦石
1
星屑
10732
在线时间
4467 小时
注册时间
2005-10-22
帖子
7061

开拓者贵宾
5楼
发表于 2014-12-9 14:12:14 | 只看该作者

我回想起了那个在实验室里写Haskell的年代 囧
Ascension draws near.
https://store.steampowered.com/app/1519140/NeolithicTo_the_End/
回复 支持 反对

使用道具 举报

喵呜喵5

Lv5.捕梦者 (暗夜天使)

只有笨蛋才会看到

梦石
1
星屑
22294
在线时间
9470 小时
注册时间
2012-6-19
帖子
7126

开拓者短篇九导演组冠军
6楼
发表于 2014-12-9 14:59:22 | 只看该作者
世界触手可及
回复 支持 反对

使用道具 举报

天使喝可乐

Lv3.寻梦者 (版主)

　 /) /)<

梦石
0
星屑
4212
在线时间
4890 小时
注册时间
2009-2-16
帖子
8434

开拓者短篇七成年组季军
7楼
发表于 2014-12-9 20:08:33 | 只看该作者
很简单 只是打印数字1到100的话 干脆手动改好了 比这个代码简单多了 而且也没有赋值，没有定义方法……

点评

taroxd
你用到了对象“数字”和“字符串”  发表于 2014-12-10 12:31

【RO同人】仙境の梦 Ver0.8 影与叶的交织 制作完成~点此进入帖子
回复 支持 反对

使用道具 举报

无脑之人

Lv1.梦旅人

梦石
0
星屑
122
在线时间
552 小时
注册时间
2012-8-18
帖子
1429
8楼
发表于 2014-12-10 12:26:28 | 只看该作者
lambda演算……啊啊啊不想想起来这玩意了……
啊哈那个下标操作符是call的意思吗……还是喜欢手写call来着……
冒昧的问一下运行时间(　ﾟ 3ﾟ)
我要填坑！我要背单词！我要学日语！我要每天锻炼！
好吧呵呵= =
回复 支持 反对

使用道具 举报

taroxd

Lv3.寻梦者 (版主)

…あたしは天使なんかじゃないわ

梦石
0
星屑
2208
在线时间
4033 小时
注册时间
2010-10-4
帖子
10779

开拓者贵宾
9楼
 楼主| 发表于 2014-12-10 12:32:06 | 只看该作者
无脑之人 发表于 2014-12-10 12:26
lambda演算……啊啊啊不想想起来这玩意了……
啊哈那个下标操作符是call的意思吗……还是喜欢手写call来着 ...

学校电脑，1~5可以正常运行，1~100……我没有耐心等到它运行完

评分

参与人数 1星屑 +30 收起 理由
无脑之人 + 30 看样子效率比我写的高/w\

查看全部评分

taroxd.github.io
RPG制作大师授权素材推广计划
Glimmer/Fatal Guise
回复 支持 反对

使用道具 举报

satgo1546

Lv2.观梦者

梦石
0
星屑
570
在线时间
1286 小时
注册时间
2011-6-14
帖子
4086
10楼
发表于 2014-12-12 19:20:25 | 只看该作者
其实我会说我之前在RubyWeekly上看到过这个吗
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔，建造一个属于你的梦想世界，加入吧。
 注册会员
找回密码

站长信箱：[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2025-11-4 18:40

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表