Display a linear combination: Difference between revisions
Content added Content deleted
(Realize in F#) |
m (→The function) |
||
| Line 293: | Line 293: | ||
let fN g = |
let fN g = |
||
let rec fG n g=match g with |
let rec fG n g=match g with |
||
|0::g -> fG (n+1) g |
|0::g -> fG (n+1) g |
||
|1::g -> printf "+e(%d)" n; fG (n+1) g |
|1::g -> printf "+e(%d)" n; fG (n+1) g |
||
|(-1)::g -> printf "-e(%d)" n; fG (n+1) g |
|(-1)::g -> printf "-e(%d)" n; fG (n+1) g |
||
| Line 306: | Line 306: | ||
fN 1 g |
fN 1 g |
||
</lang> |
</lang> |
||
===The Task=== |
===The Task=== |
||
<lang fsharp> |
<lang fsharp> |
||