ntRepeat ( times ; statements ; resultValueName )

Non-Recursive Loop Statements

Average rating: 4.7 (24 votes) Log in to vote

Norimichi Tachibana
none
none

Sample input:

Let ( [ $c=0; $ret=0 ]; ntRepeat ( 10 ; "$c=$c+1; $ret=$ret+$c" ; "$ret" ) )

Sample output:

55

* 1+2+3+4+5+6+7+8+9+10

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
@Non-Recursive Loop Statements

[Format]
  ntRepeat( times ; statements ; resultValueName )

[Parameters]
  times: Repeat times.  0..1,000,000 <Number>
  statements: One or more statements that are repeated.  <String>
  resultValueName: Variable Name as return value from this function.   <String>

[Example]
  ===Input===
  Let ( [ $c=0; $ret=0 ]; ntRepeat ( 10 ; "$c=$c+1; $ret=$ret+$c" ; "$ret" )  )
  ===Output===
  55           <----- 1+2+3+4+5+6+7+8+9+10

[History]
  2014.07.08  Norimichi Tachibana   Created
  2014.07.17  Norimichi Tachibana   Modified the matters pointed out
                                    by "unix, Japan"
*/

Case (
    times > 1000000 ; "?" ; times < 0 ; "?" ;
    Let ( [
        base = Substitute ( SetPrecision ( 1 / 3 ; 333 )
                            ; [ "3" ; "999" ] ;  [ "." ; "9" ] ) ;

        $stt = "Let([" & Trim ( statements ) & " ] ; 0 ) " ;
        $wk1 = Substitute ( base ; 9 ; "Evaluate ( $stt ) + " ) & "0" ;
        $wk2 = Substitute ( Left ( base ; Mod ( times ; 1000 ) )
                            ; 9 ; "Evaluate ( $stt ) + " ) & "0" ;

        dummy = Evaluate ( Substitute ( Left ( base ; Div ( times ; 1000 ) )
                                        ; 9 ; "Evaluate ( $wk1 ) + " )  &
                           "Evaluate ( $wk2 )" )
    ] ;
        Evaluate ( resultValueName )
    )
)

Repeats a group of statements a specified number of times.

[Format]
ntRepeat( times ; statements ; resultValueName )

[Parameters]
times: Repeat times. 0..1,000,000
statements: One or more statements that are repeated.
resultValueName: Variable Name as return value from this function.

Comments

		unix, Japan Jul 16, 2014
Makes it up to 160000 times. Case ( times > 160000 ; "?" ; times < 1 ; "?" ; Let ( [ $stt = "Let([" & Trim ( statements ) & "];0)"; times1 = Mod ( times ; 400 ) ; times2 = Div ( times ; 400 ) ; $wk1 = Substitute ( 10 ^ 400 - 1 ; 9 ; "Evaluate($stt)+" ) & "0" ; wk2 = Substitute ( 10 ^ times2 - 1 ; 9 ; "Evaluate($wk1)+" ) ; wk3 = Substitute ( 10 ^ times1 - 1 ; 9 ; "Evaluate($stt)+" ) ; do = Evaluate ( Case ( times2 > 0 ; wk2 ) & wk3 & "0" ) ] ; Evaluate ( resultValueName ) ) // end Let ) // end Case

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ntRepeat ( times ; statements ; resultValueName )

Comments

Support this website.

Support this website.