apache / systemds / 4b3fa93abfd43b9101c09a5bba5094992112c27a / . / src / test / scripts / functions / mlcontext / eval2-test.dml

#------------------------------------------------------------- | |

# | |

# Licensed to the Apache Software Foundation (ASF) under one | |

# or more contributor license agreements. See the NOTICE file | |

# distributed with this work for additional information | |

# regarding copyright ownership. The ASF licenses this file | |

# to you under the Apache License, Version 2.0 (the | |

# "License"); you may not use this file except in compliance | |

# with the License. You may obtain a copy of the License at | |

# | |

# http://www.apache.org/licenses/LICENSE-2.0 | |

# | |

# Unless required by applicable law or agreed to in writing, | |

# software distributed under the License is distributed on an | |

# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY | |

# KIND, either express or implied. See the License for the | |

# specific language governing permissions and limitations | |

# under the License. | |

# | |

#------------------------------------------------------------- | |

f1 = function (matrix[double] A, double b) return (matrix[double] R) { | |

R = A * b; | |

} | |

f2 = function (matrix[double] A, double b) return (matrix[double] R) { | |

R = A + b; | |

} | |

# some variables | |

X = rand(rows=100, cols=10) | |

R = matrix(0,0,0); | |

for(i in 1:2) | |

R = eval("f"+i, X, 7) + 7; | |

print(sum(R)); |