ここ を見て Perl6 のコードに移植するっていうのをやっていた。 Perl6 の正規表現が不思議すぎるなーと思って書いていたんだけど、よく読んだら自由だったらしい。 function isNumber (x) { if ( typeof x === 'number' ) return true; if ( /^0x[0-9a-f]+$…