Skip to main content
Code Golf

Return to Answer

deleted 24 characters in body
Source Link
olegz
olegz
  • 251
  • 1
  • 4

F#, 202 163 150149 bytes

Seq.unfold(fun(a,b)->printfn"%s"(a%6m|>int|>function|0a%6m|>function|0m->"FiboNacci"|2|4>"FiboNacci"|2m|4m->"Fibo"|3>"Fibo"|3m->"Nacci"|_->string a);Some(1,(b,a+b)))(1m,1m)|>Seq.take 100|>Seq.sum

This is an FSX (F# script) file

F#, 202 163 150 bytes

Seq.unfold(fun(a,b)->printfn"%s"(a%6m|>int|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->string a);Some(1,(b,a+b)))(1m,1m)|>Seq.take 100|>Seq.sum

This is an FSX (F# script) file

F#, 202 163 149 bytes

Seq.unfold(fun(a,b)->printfn"%s"(a%6m|>function|0m->"FiboNacci"|2m|4m->"Fibo"|3m->"Nacci"|_->string a);Some(1,(b,a+b)))(1m,1m)|>Seq.take 100|>Seq.sum

This is an FSX (F# script) file

deleted 24 characters in body
Source Link
olegz
olegz
  • 251
  • 1
  • 4

F#, 202 163 163150 bytes

let rec f a b=seq{ yield intSeq.unfold(a%6mfun(a,b)|>function|0->printfn"%s"(a%6m|>int|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->a.ToString() yield!f b>string a);Some(1,(b,a+b)} f ))(1m 1m|>Seq,1m)|>Seq.take 100|>Seq.iter(printfn"%s")sum

This is an FSX (F# script) file

F#, 202 163 bytes

let rec f a b=seq{ yield int(a%6m)|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->a.ToString() yield!f b (a+b)} f 1m 1m|>Seq.take 100|>Seq.iter(printfn"%s")

This is an FSX (F# script) file

F#, 202 163 150 bytes

Seq.unfold(fun(a,b)->printfn"%s"(a%6m|>int|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->string a);Some(1,(b,a+b)))(1m,1m)|>Seq.take 100|>Seq.sum

This is an FSX (F# script) file

deleted 1 character in body
Source Link
olegz
olegz
  • 251
  • 1
  • 4

F#, 202 164163 bytes

let rec f a b=seq{ yield int(a%6m)|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->a.ToString() yield! f b (a+b)} f 1m 1m|>Seq.take 100|>Seq.iter(printfn"%s")

This is an FSX (F# script) file

F#, 202 164 bytes

let rec f a b=seq{ yield int(a%6m)|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->a.ToString() yield! f b (a+b)} f 1m 1m|>Seq.take 100|>Seq.iter(printfn"%s")

This is an FSX (F# script) file

F#, 202 163 bytes

let rec f a b=seq{ yield int(a%6m)|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->a.ToString() yield!f b (a+b)} f 1m 1m|>Seq.take 100|>Seq.iter(printfn"%s")

This is an FSX (F# script) file

added 10 characters in body
Source Link
olegz
olegz
  • 251
  • 1
  • 4
added 5 characters in body
Source Link
olegz
olegz
  • 251
  • 1
  • 4
Source Link
olegz
olegz
  • 251
  • 1
  • 4