Mosaic matrix: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}: HP-49 version) |
imported>Maxima enthusiast |
||
Line 922: | Line 922: | ||
/* Function that returns a mosaic matrix */ |
/* Function that returns a mosaic matrix */ |
||
mosaic(n):=genmatrix(lambda([i,j],charfun(evenp(abs(i-j)))),n,n)$ |
mosaic(n):=genmatrix(lambda([i,j],charfun(evenp(abs(i-j)))),n,n)$ |
||
/* Alternative fumction */ |
|||
altern_mosaic(n):=genmatrix(lambda([i,j],if evenp(abs(i-j)) then 1 else 0),n,n)$ |
|||
/* Examples */ |
/* Examples */ |