package Ġx . scratch Ċ Ċ import Ġch . tut tel i . at rium . api . fluent . en _ GB . toBe Ċ import Ġch . tut tel i . at rium . api . ver bs . expect Ċ import Ġorg . junit . jupiter . api . Test Ċ import Ġx . scratch . Pi . Companion . generate Pi Digits Ċ Ċ /** Ċ Ġ* ĠSee Ġ< a Ġhref =" http :// www . geom . ui uc . edu /~ hub erty / math 5 3 3 7 / gro upe / digits . html ">< cite > 1 0 0 , 0 0 0 ĠDig its Ġof ĠPi </ cite ></ a > Ċ Ġ*/ Ċ internal Ġclass ĠPi Test Ġ{ ĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġgenerate Ġa Ġbunch Ġof ĠPI Ġdigits `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġpi Ġ= Ġgenerate Pi Digits () ĊĠĠĠĠĠĠĠ Ġval Ġdigits Ġ= Ġmutable ListOf < Int >() ĊĠĠĠĠĠĠĠ Ġpi . take ( 1 5 4 ). forEach Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdigits Ġ+= Ġit ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġstr Ġ= Ġdigits . join ToString ("") ĊĠĠĠĠĠĠĠ Ġval Ġmany Ġ= ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" 3 1 4 1 5 9 2 6 5 3 5 8 9 7 9 3 2 3 8 4 6 2 6 4 3 3 8 3 2 7 9 5 0 2 8 8 4 1 9 7 1 6 9 3 9 9 3 7 5 1 0 5 8 2 0 9 7 4 9 4 4 5 9 2 3 0 7 8 1 6 4 0 6 2 8 6 2 0 8 9 9 8 6 2 8 0 3 4 8 2 5 3 4 2 1 1 7 0 6 7 9 8 2 1 4 8 0 8 6 5 1 3 2 8 2 3 0 6 6 4 7 0 9 3 8 4 4 6 0 9 5 5 0 5 8 2 2 3 1 7 2 5 3 5 9 4 0 8 1 2 8 4 8 1 " ĊĊĠĠĠĠĠĠĠ Ġexpect ( str ). toBe ( many ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġfind Ġfirst Ġsub sequence Ġin ĠPI `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġposition Ġ= Ġfind In Pi (" Bf J ") ĊĊĠĠĠĠĠĠĠ Ġexpect ( position ). toBe ( 3 ) ĊĠĠĠ Ġ} Ċ } Ċ