aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Fibonacci-n-step-number-sequences/FutureBasic/fibonacci-n-step-number-sequences.basic Normal file
View file

@ -0,0 +1,26 @@
include "NSLog.incl"
CFStringRef local fn FibonacciSequences( type as CFStringRef, startSequence as CFArrayRef, count as NSInteger )
CFMutableArrayRef result = fn MutableArrayWithArray( startSequence )
NSInteger n = fn ArrayCount( startSequence )
while ( fn ArrayCount( result ) < count )
CFArrayRef lastNElements = fn ArraySubarrayWithRange( result, fn RangeMake( fn ArrayCount( result ) - n, n ) )
CFNumberRef sumNumber = (CFNumberRef)fn ObjectValueForKeyPath( lastNElements, @"@sum.self" )
NSInteger sum = fn NumberIntegerValue( sumNumber )
MutableArrayAddObject( result, @(sum) )
wend
return fn StringWithFormat( @"%10s: [%@]", fn StringUTF8String( type ), fn ArrayComponentsJoinedByString( result, @", " ) )
end fn = NULL
NSLog( @"%@", fn FibonacciSequences( @"lucas", @[@1,@1], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"tribonacci", @[@1,@1,@2], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"tetranacci", @[@1,@1,@2,@4], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"pentanacci", @[@1,@1,@2,@4,@8], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"hexanacci", @[@1,@1,@2,@4,@8,@16], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"heptanacci", @[@1,@1,@2,@4,@8,@16,@32], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"octonacci", @[@1,@1,@2,@4,@8,@16,@32,@64], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"nonanacci", @[@1,@1,@2,@4,@8,@16,@32,@64,@128], 15 ) )
NSLog( @"%@", fn FibonacciSequences( @"decanacci", @[@1,@1,@2,@4,@8,@16,@32,@64,@128,@256], 15 ) )
HandleEvents