import Ġcom . mar cin mos k ala . math . per mutations Ċ Ċ class ĠAk ram Ġ{ ĊĊĠĠĠ Ġfun Ġmain () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġr xs Ġ= ĠlistOf ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (". 1 .... 0 ."), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (". 0 ... 1 .. "), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (" .. 0 .... 0 "), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (" ...... 0 ."), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (" 0 . 0 . 0 . 0 ."), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (" 0 0 ...... "), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (" ........ "), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠRegex (" .... 0 0 .. ") ĊĠĠĠĠĠĠĠ Ġ) ĊĊĠĠĠĠĠĠĠ Ġval Ġxs Ġ= ĠlistOf (' 0 ', Ġ' 0 ', Ġ' 0 ', Ġ' 0 ', Ġ' 1 ', Ġ' 1 ', Ġ' 1 ', Ġ' 1 ') ĊĠĠĠĠĠĠĠ Ġval Ġps Ġ= Ġxs . per mutations (). map Ġ{ Ġit . join ToString ("") Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġf ss Ġ= Ġps . filter Ġ{ Ġfs Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ! fs . contains (" 1 1 1 ") Ġ&& Ġ! fs . contains (" 0 0 0 ") ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġval Ġgs Ġ= Ġr xs . map Ġ{ Ġrx Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠ Ġf ss . filter Ġ{ Ġit . matches ( rx ) Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġgs . forEach Indexed Ġ{ Ġindex , Ġlist Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠ Ġprintln ("[ ${ (' a '. toInt () Ġ+ Ġindex ). to Char ()} ]: Ġ$ list ") ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ Ċ fun Ġmain () Ġ{ ĊĠĠĠ ĠAk ram (). main () Ċ }