Commonmark migration

edited Jun 17, 2020 at 9:04

#Mathematica, 46 bytes

Mathematica, 46 bytes

Reverse@Select[Array[Fibonacci,t=1+#,0],#<t&]&

thanx to @JungHwan Min for -16 bytes

#Mathematica, 46 bytes

Reverse@Select[Array[Fibonacci,t=1+#,0],#<t&]&

thanx to @JungHwan Min for -16 bytes

Reverse@Select[Array[Fibonacci,t=1+#,0],#<t&]&

thanx to @JungHwan Min for -16 bytes

added 3 characters in body

edited Jul 27, 2017 at 17:09

#Mathematica, 6246 bytes

If[#==1,{1,0},Reverse@Select[s=Array[FibonacciReverse@Select[Array[Fibonacci,t=#t=1+#,0],#<=t&]]&#<t&]&

thanx to @JungHwan Min for -16 bytes

#Mathematica, 62 bytes

If[#==1,{1,0},Reverse@Select[s=Array[Fibonacci,t=#,0],#<=t&]]&

#Mathematica, 46 bytes

Reverse@Select[Array[Fibonacci,t=1+#,0],#<t&]&

thanx to @JungHwan Min for -16 bytes

added 17 characters in body

edited Jul 27, 2017 at 15:48

#Mathematica, 4562 bytes

If[#==1,{1,0},Reverse@Select[s=Array[Fibonacci,t=#]t=#,#<=t&]&0],#<=t&]]&

#Mathematica, 45 bytes

Reverse@Select[s=Array[Fibonacci,t=#],#<=t&]&

#Mathematica, 62 bytes

If[#==1,{1,0},Reverse@Select[s=Array[Fibonacci,t=#,0],#<=t&]]&

answered Jul 27, 2017 at 15:36

Loading

Return to Answer