# Is this not "GENIUS" ? I am amazed

**ian.moree**Mar 22, 2012 2:00 AM

Hello Experts. I am just starting to disect this code from Agnés Barouh over @ tictac.fr and i tell you. This stuff is blowing my mind:

Here is her calculation to create a list in the beginning.

Let ( [

NumCalc = Substitute ( ( 10 ^ 33) -1 ; 9 ; "100100100" );

List1_99 = Substitute ( "_00" & NumToJText( Left ( NumCalc * NumCalc; 295) ; 1 ; 0 ) ;

["," ; "_"] ; ["." ; "_"] );

$List100_199 = "_100" & Substitute ( List1_99 ; ["_0"; "_1"] );

EndMax = LeftWords ( List1_99 & $List100_199 & "_200"; Int( ( /*End variable-->*/300 -100 ) /100 ) + 1 );

FinalList = MiddleWords ( List1_99 & Evaluate ( Substitute ( "("_" & EndMax ;

[ "_"; ( "|Substitute( $List100_199; "_1"; "_" ) ];

["|"; "" ) & "] ) & "")" ); /*start variable--> */ 1 ; /* End variable-->*/ 300 - 1 + /*Start Var-->*/ 1 )

];

FinalList

)*

** i have testes this with a few minor adjustments ( * End variable-->*/ 300 & /*start variable--> */ 1) - these are parameters for the custom function

CustomList

What i am amazed at was the use of this: Substitute ( ( 10 ^ 33) -1 ; 9 ; "100100100" ); which came up with this list of numbers,

1001001001001001001001001001001001001001001001001001001001

001001001001001001001001001001001001001001001001001001001001001001

00100100100100100100100100100100100100100100100100100100100100100100100

1001001001001001001001001001001001001001001001001001001001001001001001001

00100100100100100100100100100

Then she breaks it down using the function NumtoJText ( left ( Numcalc * Numcalc; 295 ) ; 1 ;0 //THis i dont understand how you would come up with using 295, i changed this to a few other numbers but it messed up the contiguous list ..

_001_002_003_004_005_006_007_008_009_010_011_012_013_014_015_016_017_018_

019_020_021_022_023_024_025_026_027_028_029_030_031_032_033_034_035_036_

037_038_039_040_041_042_043_044_045_046_047_048_049_050_051_052_053_054_

055_056_057_058_059_060_061_062_063_064_065_066_067_068_069_070_071_072_

073_074_075_076_077_078_079_080_081_082_083_084_085_086_087_088_089_090_

091_092_093_094_095_096_097_098_099

AMAZING RIGHT!!

-i