Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
16
Task/Forward-difference/Lasso/forward-difference.lasso
Normal file
16
Task/Forward-difference/Lasso/forward-difference.lasso
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
#!/usr/bin/lasso9
|
||||
|
||||
define forwardDiff(values, order::integer=1) => {
|
||||
!#order ? return #values->asArray
|
||||
local(result = array)
|
||||
iterate(#values) => {
|
||||
loop_count < #values->size ?
|
||||
#result->insert(#values->get(loop_count+1) - #values->get(loop_count))
|
||||
}
|
||||
#order > 1 ? #result = forwardDiff(#result, #order-1)
|
||||
return #result
|
||||
}
|
||||
|
||||
local(data = (:90, 47, 58, 29, 22, 32, 55, 5, 55, 73))
|
||||
with x in generateSeries(0, #data->size-1)
|
||||
do stdoutnl(#x + ': ' + forwardDiff(#data, #x))
|
||||
Loading…
Add table
Add a link
Reference in a new issue