(49G) Pascal's Triangle

[Gerald H]

For integer input N the programme returns the Nth row of Pascal's triangle, [edit] starting with line one.

Code:


::
  CK1&Dispatch
  BINT1
  ::
    {
      Z1_
    }
    SWAP
    COERCEDUP
    BINT2
    #<case
    DROP
    #1-
    ZERO_DO
    FPTR2 ^PASCAL_NEXTLINE
    LOOP
  ;
;