DouKaku?

コード

(defun outout (str)
  (let ((l (remove-if-not (lambda (s) (cl-ppcre:scan "\\." s)) (cl-ppcre:split "([^A-z-\\.]|_|\\^)" str))))
      (dolist (item l)
	(destructuring-bind (name prop _ ext)
	    (map 'list #'values
		 (nth-value 1 (cl-ppcre:scan-to-strings "[^A-z]*([A-z]*)((-small|-big|-hidden)*)\\.([A-z]*)" item)))
	  (declare (ignore _))
	  (format t "name: '~A',~,8@Text: '~A', ~,8@Tsize: ~[Small~;Normal~;Big~], ~,8@THidden: ~:[False~;True~]~%" 
		  name ext (bigp-or-small-or-nomal-p prop) (hiddenp prop))))))

(defun hiddenp (str)
  (if (cl-ppcre:scan "-hidden[\\.-]*" str) t nil))

(defun bigp-or-small-or-nomal-p (str)
  (cond ((cl-ppcre:scan "-big" str) 2) 
	((cl-ppcre:scan "-small" str) 0)
	('T 1)))

aaa

(code-char (1- (+ (char-code #\A) 

(define (square x)
  (* x x))

#include<iostream>
using namespace std;

int main()
{
    cout<<"C++の投稿テストです。"<<endl;
}