DouKaku?beta

challenge コメントの削除 

ソースコードからコメント部分を削除するプログラム decomment を書いてください．
すくなくとも，decomment を記述したのと同じ言語で書かれているソースコードが
扱えるようにしてください．
post comment

Posted feedbacks - Common Lisp

手抜きですいません、readしてpprintしているだけです。
一応、文字の大小位は保持するようにしてみました。 
1
2
3
4
5
6
7
8
9
(defpackage :doukaku-185 (:use :cl :series))
(in-package :doukaku-185)

(defun remove-comment (file)
  (let ((*readtable* (copy-readtable)))
    (setf (readtable-case *readtable*) :preserve)
    (iterate ((line (scan-file file #'read)))
      (pprint line)
      (terpri))))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]