パスワードを忘れた? アカウント作成
この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。

もうやらなくていい昔のコーディングテクニックあれこれ」記事へのコメント

  • あれを未だにやめず使う人の気が知れんです。
    • by Anonymous Coward

      とりあえず、ここにぶら下げておくか

      7bit文字コード自体を引きずって、変数名に英語だけ使うのは古い。
      今時は日本語のひらがなや漢字混じり変数名を使う。分かり易さが一番だろ今時。

      #オープンソース界隈ではgccもまともに対応できていなかったけど、もう大丈夫なかぁ

      • by Anonymous Coward on 2009年05月04日 22時00分 (#1559235)

        こんな感じ?

        #include <stdio.h>
        #include "jident.h"

        整数 主関数(空虚)
        {
            整数 い;
            於 (い = 0; い <= 100; ++い) {
                若 (い % 3 == 0 && い % 5 == 0)
                    整形印字("ひずばず\n");
                或 若 (い % 3 == 0)
                    整形印字("ひず\n");
                或 若 (い % 5 == 0)
                    整形印字("ばず\n");
                或
                    整形印字("%d\n", い);
            }
            返値 0;
        }

        jident.hで適当にdefineしたらVisual C++ 2008でコンパイルできたりする。

        親コメント
        • by kawa-t (37052) on 2009年05月06日 2時12分 (#1559857) 日記
          (define それぞれで for-each)
          (define-syntax 算法
            (syntax-rules ()
              ((_ x ...) (lambda x ...))))
          (define 表示する display)
          (define-syntax 条件は
            (syntax-rules (他)
              ((_ (他 x ...)) (begin x ...))
              ((_ (e1 e2 ...)) (when e1 e2 ...))
              ((_ (e1 e2 ...) e3 ...)
               (if e1
                   (begin e2 ...)
                   (条件は e3 ...)))))
          (define-syntax 論理和
            (syntax-rules ()
              ((_ x ...) (and x ...))))
          (define 零ですか zero?)
          (define 余り modulo)
          (define 改行 newline)
          (define-syntax する
            (syntax-rules ()
              ((_ x ...) (let x ...))))
          (define-syntax これが
            (syntax-rules ()
              ((_ x ...) (if x ...))))
          (define 減 -)
          (define 対 cons)

          (それぞれで (算法 (い)
                            (表示する
                             (条件は ((論理和 (零ですか (余り い 3)) (零ですか (余り い 5))) "ひずばず")
                                     ((零ですか (余り い 3)) "ひず")
                                     ((零ですか (余り い 5)) "ばず")
                                     (他 い)))
                            (改行))
                      (する 繰り返し
                            ((元 100) (結果 '()))
                            (これが (零ですか 元)
                                    結果
                                    (繰り返し (減 元 1) (対 元 結果)))))  

          ;; MzschemeとGaucheで動きます。Gaucheだと最後にエラーが出ますが。何でだろう。
          親コメント

人生unstable -- あるハッカー

処理中...