randomSort ( _string )

Sorts strings randomly.

Be the first to rate this function Log in to vote

Teruhiro Komaki - Show more from this author
frudens Inc.
https://frudens.jp

Sample input:

frd_randomSort ( "abc" )

Sample output:

"abc" or "acb" or "bca" or "cab"

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

// https://www.briandunning.com/cf/2475

Let ( [
~string = GetAsText ( _string ) ;
~max = Length ( ~string ) ;
~invalid = If ( ValueCount ( ~string ) > 1 ; True ; False )
] ;

SetRecursion (

  While (

    [
      ~i = 0 ;
      ~length = 0 ;
      ~random = 0 ;
      ~newString = ~string ;
      ~leftString = "" ;
      ~rightString = "" ;
      ~randomString = "" ;
      ~result = ""
    ] ;

    not ( ~i >= ~max or ~invalid ) ;

    [
      ~i = ~i + 1 ;
      ~length = Length ( ~newString ) ;
      ~random = Int ( ~length * Random + 1 ) ;

      ~randomString = Middle ( ~newString ; ~random ; 1 ) ;

      ~leftString = Left ( ~newString ; ~random - 1 ) ;
      ~rightString = Right ( ~newString ; ~length - ~random ) ;
      ~newString = ~leftString & ~rightString ;

      ~result = ~result & ~randomString
    ] ;

    ~result

  ) /*While*/

  ; ~max

) /*SetRecursion*/

) /*Let*/

Sorts strings randomly.

Invalid if the string contains a newline.

Comments

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

randomSort ( _string )

Comments

Support this website.

Support this website.