Skip to content

Instantly share code, notes, and snippets.

@minikomi

minikomi/353.k

Created March 6, 2018 04:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save minikomi/d5031e2a98768bc691fb62a4d94b98a9 to your computer and use it in GitHub Desktop.
Save minikomi/d5031e2a98768bc691fb62a4d94b98a9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
353.k
/ Daily Programmer #353
/ inputs
i1:("ATCAATATCAA";"ATTAAATAACT";"AATCCTTAAAC";"CTACTTTCTTT";"TCCCATCCTTT";"ACTTCAATATA")
i2:";"\"AACACCCTATA;CTTCATCCACA;TTTCAATTTTC;ACAATCAAACC;ATTCTACAACT;ATTCCTTATTC;ACTTCTCTATT;TAAAACTCACC;CTTTTCCCACC;ACCTTTTCTCA;TACCACTACTT"
i3:";"\"ACAAAATCCTATCAAAAACTACCATACCAAT;ACTATACTTCTAATATCATTCATTACACTTT;TTAACTCCCATTATATATTATTAATTTACCC;CCAACATACTAAACTTATTTTTTAACTACCA;TTCTAAACATTACTCCTACACCTACATACCT;ATCATCAATTACCTAATAATTCCCAATTTAT;TCCCTAATCATACCATTTTACACTCAAAAAC;AATTCAAACTTTACACACCCCTCTCATCATC;CTCCATCTTATCATATAATAAACCAAATTTA;AAAAATCCATCATTTTTTAATTCCATTCCTT;CCACTCCAAACACAAAATTATTACAATAACA;ATATTTACTCACACAAACAATTACCATCACA;TTCAAATACAAATCTCAAAATCACCTTATTT;TCCTTTAACAACTTCCCTTATCTATCTATTC;CATCCATCCCAAAACTCTCACACATAACAAC;ATTACTTATACAAAATAACTACTCCCCAATA;TATATTTTAACCACTTACCAAAATCTCTACT;TCTTTTATATCCATAAATCCAACAACTCCTA;CTCTCAAACATATATTTCTATAACTCTTATC;ACAAATAATAAAACATCCATTTCATTCATAA;CACCACCAAACCTTATAATCCCCAACCACAC"
rotate:{1_x, (,x[0]) }
allrotations:{rotate\x}
calcHamming:{s:x[0];h:{+/s=x};(+/h'1_x ; x[0])}
maxByFirst:{{$[x[0] > y[0];x;y]}/x}
solve:{maxByFirst @ calcHamming ' allrotations x}
solve ' (i1;i2;i3)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment