require 'user/batchtest/batchtest.ijs'
(coclass [ coerase@<) 'pfib1'
coextend 'pbatchtest'

create=: 3 : 0
  CASPR=: 'fib'
  create_pbatchtest_ f. ''
  TITLE=: 'Fibonacci numbers'
  SHOWWHAT=: ;:'tableout errorsout plot'
  XPOSE=: 1
)

x=: +/ .*

fib0=: +/@((] ! -) i.@>:@>.@-:)

fib1=: 3 : '{.{: x/ x~^:(I.|.#:>:y.) 2 2$0 1 1 1x'

fib1a=: 3 : '{.{.(+/ . *)^:(>:y.)~2 2$0 1 1 1x'

fib2=: 3 : '{. +/\@|.^:(>:y.) 0 1x'

fib2a=: 3 : '{.(+/ , {.)^:y. 1 0x'

series045x=: 45x
series450x=: 450x

NB. uncomment below for Ctrl+W
btest >coname''