RosettaCodeData/Task/Matrix-multiplication/Amazing-Hopper/matrix-multiplication-1.hopper

8 lines
274 B
Plaintext

#include <hopper.h>
main:
first matrix=0, second matrix=0,a=-1
{5,2},rand array(a),mulby(10),ceil, cpy(first matrix), puts,{"\n"},puts
{2,3},rand array(a),mulby(10),ceil, cpy(second matrix), puts,{"\n"},puts
{first matrix,second matrix},mat mul, println
exit(0)