純粋関数型言語Concurent Cleanat TECH
純粋関数型言語Concurent Clean - 暇つぶし2ch27:デフォルトの名無しさん
04/02/09 01:49
>>13をC言語で適当に書いたコード
おまいらこれをCleanに変換してくれよ
#include <stdio.h>
#define deref(x,i) *(int *)((x) + ((i)*4))
cvsref_fp(no, in, out) {
 int c, column = 1;
 while ((c = fgetc(in)) != EOF)
  if (c == ',') ++column;
  else if (c == '\n')   fputc(c, out), column = 1;
  else if (column == no) fputc(c, out);
}
cvsref(no, filename) {
 int fp = fopen(filename, "r");
 !fp ? printf("Error: File not found.\n"),exit(1) :
  cvsref_fp(no, fp, stdout);
 fclose(fp);
}
main(c,v) {
 c != 3 ? printf("Usage: csvref <no> <filename>\n"),exit(1) :
  cvsref(atoi(deref(v, 1)), deref(v, 2));
}


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch