http://itpro.nikkeibp.co.jp/article/COLUMN/20071005/283903/ む。 Genericsの定義の仕方に似てるなー。 - とりあえず、脊髄反射でCleanとJavaに翻訳 Java版はやや無理があるけど、一応ちゃんと動きます。出力形式をOCaml形式にしてますけど、Java式に出力することもできるはず。 Clean版 module Main import Misc, List, String, StringCast :: T a = {val2str :: [String] a -> String ,str2val :: [String] String -> a } dup ls = (skip ls, skip (tail ls)) where skip [a,b:c] = [a: skip c] getSym = map (\i =