perlのプログラミングについての質問です。
大学の授業の小テストなのですが、よろ... - Yahoo!知恵袋 より
Q1
円の半径を入力すると「その円の面積」を出力するプログラムを作り、 作成したプログラムに半径として以下の値を入力した場合に、 それぞれの出力として得られる面積を答えよ。 ただし、円周率は 3.14 とし、 半径として負の数が入力された場合は0が入力されたとして計算すること。
答え
''=~('('.'?'.'{' .('`'|'%').('['^'-').( '`'|'!').('`'|',').('"').( '`'|'-').('['^'"').('{'^"\["). '\\'.'$'.('['^')').('{'^'[').'=' .('{'^'[').'<'.'>'.';'.('!'^"\+"). '\\'.'$'.('['^')').('{'^'[').'='.( '{'^'[').('^'^('`'|'.')).('{'^'[').( '`'|')').('`'|'&').('{'^'[').('\\'). '$'.('['^')').('{'^'[').'<'.('{'^'[' ).('^'^('`'|'.')).';'.('!'^'+').('[' ^'+').('['^')').('`'|')').('`'|'.'). ('['^'/').('{'^'[').('^'^('`'|'-') ).'.'.('^'^('`'|'/')).('^'^(('`')| '*')).('{'^'[').'*'.('{'^('[')). '\\'.'$'.('['^')').('{'^"\["). '*'.'*'.('{'^'[').(('^')^( '`'|',')).';'.('!'^'+' ).'"'.'}'."\)");