"Fossies" - the Fresh Open Source Software Archive

Member "MACE1.6.0/exampleScripts/recursion/recursiveRoutine.txt" (15 Aug 2018, 1011 Bytes) of package /windows/misc/MACE1.6.0.zip:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 %Copyright (C) 2012-2018 Jan Christian Rohde
    2 %
    3 %This file is part of MACE.
    4 %
    5 %MACE is free software; you can redistribute it and/or modify it under the terms of the
    6 %GNU General Public License as published by the Free Software Foundation; either version 3
    7 %of the License, or (at your option) any later version.
    8 %
    9 %MACE is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without
   10 %even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   11 %GNU General Public License for more details.
   12 %
   13 %You should have received a copy of the GNU General Public License
   14 %along with MACE; if not, see http://www.gnu.org/licenses.
   15 
   16 %This recursive script is written to be executed by the script recursion.txt.
   17 
   18 get(n)
   19 
   20 %print the current value of n
   21 n:
   22 
   23 result = 0;
   24 
   25 if n>1 {
   26     if mod(n,2) == 0 {
   27         n = n/2;   
   28     }
   29     else {
   30         n = 3*n+1;
   31     }
   32     execute(exampleScripts/recursion/recursiveRoutine.txt,n)->(result)
   33     result = result + 1;
   34 }
   35 
   36 give(result)