Perlのmap関数ってこういうこと?をもうちょっとしっかり書いてみた
暇つぶしみたいなもんなんですが。
そのうちジェネリクスとか勉強がてらに使って書き直してみようかな。
public class PerlMap{ public static void main(String[] args){ Object[] objects = {"1","2","3","4","5"}; Object[] results = map( new Proc(){ public Object doProc( Object obj ){ return "processed(" + obj.toString() + ")"; }, objects ); for( int i=0 ; i < results.length ; i++ ){ System.out.println( results[i] ); } } public static Object[] map( Proc proc, Object[] objects ){ Object[] results = new Object[objects.length]; for( int i=0 ; i < objects.length ; i++ ){ results[i] = proc.doProc( objects[i] ); } return results; } } class Proc{ public Object doProc( Object obj ) { Object result = null; return result; } }