Hofstadter Figure-Figure sequences: Difference between revisions

Content added Content deleted
(add FreeBASIC)
Line 1,091: Line 1,091:


=={{header|FreeBASIC}}==
=={{header|FreeBASIC}}==
{{trans|BBC-BASIC}}
{{trans|BBC BASIC}}
<lang freebasic>function ffr( n as integer ) as integer
<lang freebasic>function ffr( n as integer ) as integer
if n = 1 then return 1
if n = 1 then return 1