package ĠFunctions Ċ Ċ fun Ġ< T > Ġas List ( var arg Ġts : ĠT ): ĠList < T > Ġ{ ĊĠĠĠ Ġval Ġresult Ġ= ĠArrayList < T >() ĊĠĠĠ Ġfor Ġ( t Ġin Ġts ) Ġ{ ĊĠĠĠĠĠĠĠ Ġ// Ġts Ġis Ġan ĠArray ĊĠĠĠĠĠĠĠ Ġresult . add ( t ) ĊĠĠĠ Ġ} ĊĠĠĠ Ġreturn Ġresult Ċ } Ċ Ċ fun Ġhas Z eros ( ints : ĠList < Int >): ĠBoolean Ġ{ ĊĠĠĠ Ġints . forEach Ġ{ ĊĠĠĠĠĠĠĠ Ġif Ġ( it Ġ== Ġ 0 ) Ġreturn Ġtrue Ġ// Ġreturns Ġfrom Ġhas Z eros ĊĠĠĠ Ġ} ĊĠĠĠ Ġreturn Ġfalse Ċ } Ċ Ċ fun Ġfoo 1 ( bar : Int Ġ= Ġ 0 , Ġbaz : Int Ġ= Ġ 1 , Ġqu x : ()-> Unit ) Ġ{ ĊĠĠĠ Ġprintln (" value Ġof Ġ$ bar Ġand Ġ$ baz . ĠThe Ġfn Ġis Ġ$ qu x ") Ċ } Ċ Ċ tail rec Ġfun Ġfind Fix Point ( x : Double = 1 . 0 , Ġfn :( Double )-> Double ): Double Ġ= Ġif ( x == fn ( x )) Ġx Ġelse Ġfind Fix Point ( fn ( x ), Ġfn ) Ċ Ċ fun Ġmain ( args : Array < String >) Ġ{ ĊĠĠĠ Ġprintln ( asList (" A ", Ġ" B ", Ġ" C ")) ĊĊĠĠĠ Ġval Ġa Ġ= ĠarrayOf ( 4 , 5 , 6 ) ĊĊĠĠĠ Ġprintln ( asList ( 1 , Ġ 2 , Ġ 3 , Ġ* a , Ġ 7 , Ġ 8 , Ġ 9 )) ĊĠĠĠ Ġprintln ( has Z eros ( asList ( 0 , Ġ 1 , Ġ 2 ))) ĊĊĠĠĠ Ġ// println ( find Fix Point ( Math . cos )) Ċ }