package Ġcom . pack tp ub . function alk otlin . chapter 1 2 Ċ Ċ import Ġarrow . syntax . function . bind Ċ Ċ fun Ġpartial Splitter ( bill And Order : ĠPair < Bill , ĠPick ing Order > ?, Ġwarehouse : Ġ( Pick ing Order ) Ġ-> ĠUnit , Ġaccounting : Ġ( Bill ) Ġ-> ĠUnit ) Ġ{ Ċ ĉ if Ġ( bill And Order Ġ!= Ġnull ) Ġ{ Ċĉ ĉ warehouse ( bill And Order . second ) Ċĉ ĉ accounting ( bill And Order . first ) Ċ ĉ } Ċ } Ċ Ċ /* fun Ġmain ( args : ĠArray < String >) Ġ{ Ċ ĉ val Ġsplit ter : Ġ( bill And Order : ĠPair < Bill , ĠPick ing Order > ?) Ġ-> ĠUnit Ġ= Ġ:: partial Splitter . part ially 2 Ġ{ Ġorder Ġ-> Ġprintln (" TEST ING Ġ$ order ") Ġ} ( p 2 Ġ= Ġ:: accounting ) ĊĊ ĉ val Ġsales System : Ġ( quote : ĠQuote ) Ġ-> ĠUnit Ġ= Ġ:: calculate Price Ġand Then Ġ:: filter B ills Ġforward Compose Ġsplit ter Ċ ĉ sales System ( Quote ( 2 0 . 0 , Ġ" Foo ", Ġ" Sh oes ", Ġ 1 )) Ċ ĉ sales System ( Quote ( 2 0 . 0 , Ġ" Bar ", Ġ" Sh oes ", Ġ 2 0 0 )) Ċ ĉ sales System ( Quote ( 2 0 0 0 . 0 , Ġ" Foo ", Ġ" Motor bi ke ", Ġ 1 )) Ċ } Ċ Ċ fun Ġmain ( args : ĠArray < String >) Ġ{ Ċ ĉ val Ġstrong : Ġ( String , ĠString , ĠString ) Ġ-> ĠString Ġ= Ġ{ Ġbody , Ġid , Ġstyle Ġ-> Ġ"< strong Ġid =\" $ id \" Ġstyle =\" $ style \"> $ body </ strong >" Ġ} ĊĊ ĉ val Ġred Strong : Ġ( String , ĠString ) Ġ-> ĠString Ġ= Ġstrong . part ially 3 (" font : Ġred ") Ġ// Explicit ĊĊ ĉ val Ġblue Strong : Ġ( String , ĠString ) Ġ-> ĠString Ġ= Ġstrong ( p 3 Ġ= Ġ" font : Ġblue ") Ġ// Implicit ĊĊ ĉ println ( red Strong (" Red ĠSon ja ", Ġ" movie 1 ")) Ċ ĉ println ( blue Strong (" Deep ĠBlue ĠSe a ", Ġ" movie 2 ")) Ċ }*/ Ċ Ċ fun Ġmain ( args : ĠArray < String >) Ġ{ ĊĊ ĉ val Ġfooter :( String ) Ġ-> ĠString Ġ= Ġ{ content Ġ-> Ġ"< footer >$ content </ footer > "} ĊĊ ĉ val Ġfix Footer : Ġ() Ġ-> ĠString Ġ= Ġfooter . bind (" Functional ĠKotlin Ġ- Ġ 2 0 1 8 ") Ġ// alias Ġfor Ġpartially 1 ĊĊ ĉ println ( fix Footer ()) Ċ } Ċ