Calkin-Wilf sequence: Difference between revisions
m
Undo revision 336660 by Rdm (talk) insufficient testing
(→{{header|J}}: simplify) |
Tag: Undo |
||
Line 1,224:
cw_next_term=: [: % +:@<. + -.
ccf =: compute_continued_fraction=:
if. 0 -: y do.
, 0
else.
result=. i. 0
remainder=. % y
whilst. remainder do.
remainder=. % remainder
integer_part=. <. remainder
remainder=. remainder - integer_part
result=. result , integer_part
end.
end.
)
molcf =: make_odd_length_continued_fraction=: (}: , 1 ,~ <:@{:)^:(0 -: 2 | #)
Line 1,231 ⟶ 1,244:
index_cw_term=: #.@|.@(# 1 0 $~ #)@molcf@ccf
</syntaxhighlight>
=={{header|jq}}==
'''Adapted from [[#Wren|Wren]]'''
| |||