aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Matrix-multiplication/Scheme/matrix-multiplication-1.scm Normal file
View file

@ -0,0 +1,8 @@
(define (matrix-multiply matrix1 matrix2)
(map
(lambda (row)
(apply map
(lambda column
(apply + (map * row column)))
matrix2))
matrix1))

12
Task/Matrix-multiplication/Scheme/matrix-multiplication-2.scm Normal file
View file

@ -0,0 +1,12 @@
(import (srfi 231))
(define (matrix-multiply A B)
(array-inner-product A + * B))
(pretty-print
(array->list*
(matrix-multiply
(list*->array 2 '((1 2)
(3 4)))
(list*->array 2 '((-3 8 3)
(-2 1 4))))))