愛が生まれた
Spreadsheets

Spreadsheetsでも愛が生まれた

More than 1 year has passed since last update.

元ネタ
http://qiita.com/dongri/items/041ff3e7dde6c99beeb0

ブログにも投稿しています
http://ryoichi0102.hatenablog.com/entry/2016/05/11/003646

Spreadsheetsに書いてみた

https://docs.google.com/spreadsheet/ccc?key=1mDQSaiQcGYP3zR1ksbXZK1PURGKGgA7NWb1quF-qJRo&pubredirect=true

Excelでもできると思います。
dec2hex(code(A1))でUnicodeに変換して各文字をmidで1桁にバラします。
その後、hex2bin(E1,4)でビットに変換します。
(4は4桁で出力の意)

その後、ビット演算なのですが、これがツラかった。

=if(and(mid(J1,1,1)="1",mid(J2,1,1)="1"),"1","0")&
if(and(mid(J1,2,1)="1",mid(J2,2,1)="1"),"1","0")&
if(and(mid(J1,3,1)="1",mid(J2,3,1)="1"),"1","0")&
if(and(mid(J1,4,1)="1",mid(J2,4,1)="1"),"1","0")

このあたり。
もっと良いやり方があれば知りたい。

ここで折り返し地点を超えて、
bin2hex、各桁を連結して、char(hex2dec( ))
と戻してあげれば完成です。