18 lines
469 B
Text
18 lines
469 B
Text
#include <jambo.h>
|
|
#define Mulbyandmoveto(_X_) Mul by '_X_', Move to '_X_'
|
|
|
|
Main
|
|
filas=0, Get arg numeric '2', Move to 'filas'
|
|
i=0, r=""
|
|
Loop if( var 'i' Is less than 'filas' )
|
|
c=1, j=0
|
|
Set 'c' To str, Move to 'r'
|
|
Loop if ( var 'j' Is less than 'i' )
|
|
Set 'i' Minus 'j', Plus one 'j', Div it; Mul by and move to 'c'
|
|
Multi cat ' r, "\t", Str(c) '; Move to 'r'
|
|
++j
|
|
Back
|
|
Printnl 'r'
|
|
++i
|
|
Back
|
|
End
|