fork(1) download
  1. $_ = $$ / $$ # 1
  2. @_ = $_ + $_ # 2
  3. $- = $_ - @_ # -1
  4. $-_ = $_ - $_ # 0
  5.  
  6. # factorial
  7. $__ = -> _ {
  8. _ < @_ ? $_ : _ * $__[_ - $_]
  9. }
  10.  
  11. # Array#size
  12. $___ = -> _ {
  13. $. = $-_
  14. (@__ = -> {
  15. $. += $_
  16. (_ = _[$_..$-]) == [] ? $. : @__[]
  17. })[]
  18. }
  19.  
  20. # map
  21. $____ = -> _, __ {
  22. @___ = $___[_]
  23. $. = $-_
  24. (@____ = -> {
  25. _[$.] = __[_[$.]]
  26. ($. += $_) == @___ ? _ : @____[]
  27. })[]
  28. }
  29.  
  30. # triangle
  31. $_____ = -> _ {
  32. $____[[*$-_.._], -> __ { $__[_] / ($__[__] * $__[_ - __]) }]
  33. }
  34.  
  35. # Array#each
  36. ___ = -> _, __ {
  37. ____ = $___[_]
  38. _____ = $-_
  39. (______ = -> {
  40. __[_[_____]]
  41. (_____ += $_) == ____ ? _ : ______[]
  42. })[]
  43. }
  44.  
  45. # Array#with_index
  46. @_____ = -> _ {
  47. ___ = $___[_]
  48. $. = $-_
  49. __ = []
  50. (____ = -> {
  51. __ << [_[$.], $.]
  52. ($. += $_) == ___ ? __ : ____[]
  53. })[]
  54. }
  55.  
  56. n = gets.to_i
  57. $_ = 1
  58.  
  59. ___[@_____[$_____[n - $_]], -> _ {
  60. $> << $____[$_____[_[$_]], -> __ { _[$-_] * __ }] * ' ' <<
  61. ('' << @_ * @_ * @_ + @_)}]
Success #stdin #stdout 0.02s 7480KB
stdin
14
stdout
1
13 13
78 156 78
286 858 858 286
715 2860 4290 2860 715
1287 6435 12870 12870 6435 1287
1716 10296 25740 34320 25740 10296 1716
1716 12012 36036 60060 60060 36036 12012 1716
1287 10296 36036 72072 90090 72072 36036 10296 1287
715 6435 25740 60060 90090 90090 60060 25740 6435 715
286 2860 12870 34320 60060 72072 60060 34320 12870 2860 286
78 858 4290 12870 25740 36036 36036 25740 12870 4290 858 78
13 156 858 2860 6435 10296 12012 10296 6435 2860 858 156 13
1 13 78 286 715 1287 1716 1716 1287 715 286 78 13 1