If it wasn't for SJIS (or some sort of MS Windows Encoding Page) troubles, this script would probably be useful and reliable. I'm fudging the possible encoding issues by, using “key” and “value” as backups when assoc doesn't find what it should in an associative list (alist, als). Playing with Scheme/Racket gives you the confidence to deal with any problem, if some detail isn't working, just throw in an if or cond statement, and maybe the results will help you figure out where the trouble is. DrRacket is great for showing where errors are, it even produces bright red lines that trace the errors for you...

There is a pattern, where I develop the script to generate useful pages to process one data file and then adapt it to handle several files in a directory. After the script seems to work for one data file, I get all the define definitions used to transform data (not those used to make functions) from the original file, and put those definitions into a let* expression (or clause) within a procedure that is used with for-each to go through a list of data files. Some definitions remain global, but all the definitions that rely on the data file go into a let* clause.

This code is re-working of earlier code (fn:1) that, from one .csv data file generated three files: a racket data file, a browser page to print roll sheets, and a browser page to print a seating chart. To get code that will generate three useful files (a rkt data file, a roll sheet, and a seating chart) for each .csv data file in a directory, I just had to see what belongs in a let* clause of the function that is mapped (with for-each for the side-effects and the list-generation) over a list of file paths.

A typo(bug) that disturbed my flow made me appreciate first and second in place of car and cadr. I had build-path errors that confused me for a while. when I moved the define cls-als (class associative list: alist: als) into the let* clause, I forgot the a in cadr. In place of a one-key one-value associative list, I ended up with, not a string, but a long list as the value. Without the string, I could build paths for file-generation. I imagine using first and second could make it easier to spot a mistake like that. But cddr is probably still useful instead of (rest (rest ....

There is another bug, where the first seat is taken up by the keys for associative list, or what could be viewed as column headers in a table of data. If there is time I'll see where in the chart-generation process to intervene, and get rid of the header intrusion. But the bug could be a feature, it can be nice to have an open table at the front of the room for returning papers, for set-up. With the Graded Direct Method teachers haul a lot of “realia” into the classroom, and tend to need tables and seats for demonstrations...

• (fn:1) https://write.as/bs2facdev/d-r-y

code

#lang racket

(define base-dir "NanKyuRoll")

(define working-directory (build-path (find-system-path 'home-dir)
                                     base-dir))
;; csv-data-file
(define data-dir-path (build-path working-directory "data" "2018" "1"))
(define data-file-paths
  (map (lambda (p) (path->complete-path p data-dir-path))
       (filter
	(lambda (p) (path-has-extension? p #".csv"))
	(directory-list data-dir-path))))

(define seat-row-num "6")

(define end-ext-dta "-roll-data.rkt")
(define end-ext-htm "-roll-sheet.html")
(define end-ext-seats (string-append "-seat-chart"  "-" seat-row-num ".html"))

;; use at the end of the semester to output bureacratic report
(define end-ext-attnd "-attendance.html")

;; get and clean data from sjis-encoded .csv file
(define characters-to-replace
  '(("\"" "")
    (" " " ")
    ("\u3000" " ") 
    ("�K" "II")
    ("" "今")
    ("" "別")
    ("" "匡")))

(define clean-sjis-string
  (lambda (sjis-str char-rplc-list)
    (let ((new-str sjis-str))
      (for-each (lambda (pair)
	     (set! new-str (regexp-replace* (regexp (car pair))
					    new-str
					    (cadr pair))))
      char-rplc-list)
    new-str)))

(define get-sjis-file-contents-as-list-of-strings
  (lambda (fstr char-pairs)
    (let* ((inf (open-input-file fstr))
	   ;; avoid re-encoding error with "??"63 63 for error bytes
	   (iu8 (reencode-input-port inf "SJIS" (make-bytes 2 63)))
	   (str (port->string iu8)) ;; get string from reencoded port
	   (cln-str (clean-sjis-string str char-pairs)))
      (close-input-port inf) ; "should be explicitly closed"
      ; but if closed at end of procedure #<void> is returned
      (string-split cln-str "\n"))))  

;; from data table-style  rows from .csv file
;;    make associative lists
(define transpose-rows-columns
  (lambda (lol) ;; list of lists
    (define helper
      (lambda (lol keep)
	(cond ((null? (car lol)) (reverse keep))
	      (#t (helper (map cdr lol) (cons (map car lol) keep))))))
    (helper lol '())))

;; associative list reference
(define als-ref
  (lambda (key als)
    (let ((tmp (assoc key als)))
      (if tmp (cadr tmp) #f))))

;; (require racket/pretty) not-needed?
(define defntn-symbol-to-string
  (lambda (symbl deftn)
    (let ((dfn "")
	  (os (open-output-string)))
      (pretty-print (append
		     (cons 'define (list symbl))
		     (list deftn))
		    os)
      (set! dfn (get-output-string os))
      (set! dfn (regexp-replace #rx"\\(\\(" dfn "'(("))
      (set! dfn (regexp-replace #rx"'\\(define " dfn "(define "))
      dfn)))

(define from-als-name-directory
  (lambda (als)
    (build-path
     (find-system-path 'home-dir)
     base-dir
     (als-ref "年度" als)
     (als-ref "学期" als))))
(define from-als-make-directory
  (lambda (als)
    (make-directory*
     (from-als-name-directory als))))
(define from-als-name-file
  (lambda (als end-ext)
    (let ((time (als-ref "開講曜日" als))
	  (clss (als-ref "科目名" als)))
      (build-path (path->string (from-als-name-directory als))
		  (string-append time clss
				 end-ext)))))

;; only need first two columns from sjis-csv-data above
(require (only-in srfi/1 iota))
;; set the number of class-meetings used for roll-sheet
(define classes 15) ;; put default settings at head of file
; (define roll-heads
;  '("学籍番号" "学生氏名"   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 tst grd))
(define roll-heads
  (cons "学籍番号" (cons "学生氏名"
			 (append (iota classes 1)
				 (cons 'tst '(grd))))))
;; one underline per cell under each class number in roll table
(define class-lines (map (lambda (n) "_") (iota classes)))

;; later get the keys and the roll-heads from cls-als data position?
(define stdt-keys (list (first roll-heads)(second roll-heads)))
;; "学籍番号" "学生氏名" 
(define clss-keys '("年度" "学期" "科目名" "開講曜日" "開講教室" "教員氏名"))
(define comment-string-sample-roll-date-lists
"
;; ;; (define rll-dta
;; ;;   '((\"1531116007\" \"石牟礼 道子\" 1 0 1 1 1 0 1 1 0 1 1 0 1 1 1)
;; cls-dts need to be entered during/after the semester
;; (define cls-dts
;;  '((10 01)(10 15)(10 22)(10 29)(11 5)(11 12)(11 19)(11 26)
;; (12 3)(12 10)(12 17)(1 7)(1 21)(1 28)(2 4)))  
"
)
(define start-roll-data-file
  (lambda (als end-ext)
    (let ((out-fle (open-output-file
		  ;;  (build-path
		    ;; (from-als-name-directory als)
		     (from-als-name-file als end-ext)
		    #:exists 'replace)))
      (display comment-string-sample-roll-date-lists out-fle)
      (close-output-port out-fle))))

;; (start-roll-data-rkt roll-file explan-string)
; (start-roll-data-file cls-als end-ext-dta)

;; This procedure puts symbols and their definitions into roll-data file
(define add-to-roll-data-file
  (lambda (sym f-als s-als) ;; file als, and symbol als, not alwasy the same
    (let ((apnd-file (open-output-file
		      (from-als-name-file f-als end-ext-dta)
		      #:exists 'append)))
      ;; earlier version worked with emacs geiser, but got #%top errors in DrRacket
      (display (defntn-symbol-to-string sym s-als) apnd-file)
      (close-output-port apnd-file))))


;; End and roll-data page
;; Start of seating-chart

(require scribble/html) ;; for output-xml
(require scribble/html/html) ;; for table etc
;; clss-keys stdt-keys
(define class-table
  (lambda (als kys)
    (table class: "classinfo"
	   (tr
	    (map (lambda (ky)
		   (th (if (assoc ky als)
                          (car (assoc ky als))
                          "key")))
		 kys))
	   (tr
	    (map (lambda (ky)
		   (td (if (assoc ky als)
                          (cadr (assoc ky als))
                          "val")))
		       kys)))))

;; use class-lines as global variable, or argument?
(define roll-table
  (lambda (als kys)
    (table class: "roll"
	   (tr
	    (map (lambda (hd)  ;; any need to separate keys from nums, tst, grd? as in Guile script?
		   (th class: "hdr" hd))
		 roll-heads))
	   (map (lambda (ls)
		  (tr (td class: "num" (car ls))
		      (td class: "stu" (cadr ls))
		      (map (lambda (s)
			     (td class: "line" s))
			   class-lines)))
		als))))
	    
;; -rll-sht-.html
(define class-sheet-html
  (lambda (class-alst cls-kys stdn-alst stn-kys)
    (let ((page-ttle (path->string (file-name-from-path (from-als-name-file class-alst ""))))
	  (out-file (open-output-file (from-als-name-file class-alst end-ext-htm)
				      #:exists 'replace)))
      (output-xml (xhtml
		  (head (title page-ttle )
			(meta http-equiv: "Content-Type" content: "text/html;charset=utf-8")
			(map style (list ;;saves spase to map style over a list of strings
				    "h2 { font-weight: normal; }"
				    "table.classinfo { margin: 1em 0 3em 0; } "
				    "table.classinfo td, th { font-weight: normal; padding-right: 1em; text-align: left; }"
				    "table.roll th { font-weight: 50; font-size: 9pt; }"
				    "table.roll td {padding-right: .5em; text-align: left; }"
				    "table.rollsymbols td.date {font-size: 9pt; text-align: right; }"
				    "td.num { font-size: 8pt; }"
				    "td.stu { font-size: 10pt; width: 6em; }"
				    "td.blank { padding: 10px 0px 2px 0px;  text-align: center; }"
				    "table.seating td {padding: 4px 6px 6px 6px; font-size: 11pt; }")))
		  (body (h2 page-ttle)
			(class-table class-alst cls-kys)
			(roll-table stdn-alst stn-kys)
			))
		  out-file)
      (close-output-port out-file))))

;; (class-sheet-html cls-als clss-keys stt-rll-dta stdt-keys)

;; end roll-sheet generation prep
;; start seating chart generation preparation

(define fill-row
  (lambda (lst num)
    (cond
     ((= 0 num) (reverse lst))
     (#t (fill-row (cons '("_" "_") lst) (sub1 num))))))

(define split-rows
  (lambda (list limt)
    (let ((lim (if (number? limt) limt (string->number limt)))
	  (rows '()))
      (define helper ;; re-write with split-at and drop later
	(lambda (lst now prt prts)
	  (cond
	   ((null? lst)(reverse (cons (fill-row prt (- lim now)) prts)))
	   ((= lim now)(helper lst 0 '() (cons (reverse prt) prts)))
	   (#t (helper (cdr lst) (add1 now) (cons (car lst) prt) prts)))))
      (helper list 0 '() '()))))

(define lng-nme->lst-nme
  (lambda (name)
    (if (> 7 (string-length name))
	name
	(last (string-split name)))))

(define stdt-cell
  (lambda (pair)
    (td (lng-nme->lst-nme (cadr pair)) (br) (car pair))))

;; stt-rll-dta in current flow,
;; or import roll-file from -roll-data.rkt if hand-change order in .rkt file
(define seat-table
  ;; for now outupt a default 6 seater row .html page
  (lambda (rll-dta lmt)
    (table class: "seating chart"
	   (map (lambda (row)
		  (tr
		   (map (lambda (pair)
			  (stdt-cell pair))
			row)))
		(split-rows rll-dta lmt)))))
;; (output-xml (seat-table stt-rll-dta seat-row-num))

(define class-seating-html
  (lambda (cls-als rll-dta row-len)
    (let* ((seat-chart (from-als-name-file cls-als end-ext-seats))
          (out-file (open-output-file seat-chart
				      #:exists 'replace))
	  (page-ttle (path->string (file-name-from-path seat-chart))))
      (output-xml (xhtml
		   (head (title page-ttle )
			 (meta http-equiv: "Content-Type" content: "text/html;charset=utf-8")
			 (map style (list ;;saves space to map style over a list of strings
                                     "@page { size: 210mm 297mm; margin: 4mm 4mm 6mm 4mm; }"
				     "h2 { font-weight: normal; }"
                                     "table.teacher {border: thin solid; margin: -2em 2em 2em 20em; padding: .5em 1em .5em 1em;}"
                                     "table.seating td {padding: 3px 6px 4px 6px; font-size: 11pt; }  ")))
                   (body (p page-ttle)
                        (table class: "teacher box" (tr (td  "teacher")))                      
                        (seat-table rll-dta row-len)))
                 out-file)
      (close-output-port out-file))))


(define write-pages-from-csv-file
  (lambda (file) ;; file-path, file-name?
    (let* ;; csv data strings to data structures
	((got-strs (get-sjis-file-contents-as-list-of-strings file
							      characters-to-replace))
	 (got-lsts (map (lambda (s) (string-split s ",")) got-strs))
	 ;; first and second lines only of .csv file
	 (cls-dta-lst (list (car got-lsts) (cadr got-lsts)))
	 (stt-dta-lst (cddr got-lsts))
	 (cls-als (transpose-rows-columns cls-dta-lst))
	 (stt-rll-dta (map (lambda (row)
			     (list (first row)(second row)))
			   stt-dta-lst)))
      (start-roll-data-file cls-als end-ext-dta)
      (add-to-roll-data-file 'cls-als cls-als cls-als)
      (add-to-roll-data-file 'stt-rll-dta cls-als stt-rll-dta)
      (class-sheet-html cls-als clss-keys stt-rll-dta stdt-keys)
      (class-seating-html cls-als stt-rll-dta seat-row-num))))
	 
(for-each write-pages-from-csv-file data-file-paths)

Sample .csv data

I split the name-rows out into three different files for testing. The sample data needs to be improved with different class names and time periods, but the focus is on learning Racket and problem solving patterns for now.

"年度","学期","授業コード","科目コード","科目名","科目名＿英語","教員氏名","教員氏名＿カナ","教員氏名＿英語","開講区分","開講曜日","開講教室"
"2018","前期","31242","142000","英会話","English Conversation","ﾌﾞﾗｲｱﾝ・ｽﾓｰﾙ","ブライアン・スモール","Small Brian","週間授業","火4","1409(小講義)"
"学籍番号","学生氏名"
"151116070","相沢　佳子","アイザワ ヨシコ","AIZAWA YOSHIKO","4","南九大 環境園芸学部 環境園芸学科 園芸学分野","南九大 環境園芸学部 環境園芸学科 園芸学分野"
"151117035","青木　幸雄","アオキ ユキオ","AOKI YUKIO","3","南九大 環境園芸学部 環境園芸学科 造園学分野","南九大 環境園芸学部 環境園芸学科 造園学分野"
"151118001","芥川　仁","アクタガワ ジン","AKUTAGAWA JIN","2","南九大 環境園芸学部 環境園芸学科 園芸学分野","南九大 環境園芸学部 環境園芸学科 園芸学分野"
"151118002","雨宮　処凛","アマミヤ カリン","AMAMIYA KARIN","2","南九大 環境園芸学部 環境園芸学科 造園学分野","南九大 環境園芸学部 環境園芸学科 造園学分野"
"151118003","新井　貴之","アライ タカユキ","ARAI TAKAYUKI","2","南九大 環境園芸学部 環境園芸学科 造園学分野","南九大 環境園芸学部 環境園芸学科 造園学分野"
"151118004","荒畑　寒村","アラハタ サンソン","ARAHATA SANSON","2","南九大 環境園芸学部 環境園芸学科 園芸学分野","南九大 環境園芸学部 環境園芸学科 園芸学分野"
"151118005","粟飯原　文子","アリハラシ フミコ","ARIHARASHI FUMIKO","2","南九大 環境園芸学部 環境園芸学科 園芸学分野","南九大 環境園芸学部 環境園芸学科 園芸学分野"
"151118006","安藤　昌益","アンドウ ショウエキ","ANDOU SHOUEKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118007","石牟礼　道子","イシムレ ミチコ","ISHIMURE MICHIKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118008","井上　ひさし","イノウエ ヒサシ","INOUE HISASHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118009","宇井　純","ウイ ジュン","UI JUN","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118010","上野　登","ウエノ ノボル","UENO NOBORU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118011","上野　英信","ウエノ ヒデノブ","UENO HIDENOBU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118012","宇都宮　健児","ウトミヤ ケンジ","UTOMIYA KENJI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118013","江口　幹","エグチ カン","EGUCHI KAN","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118014","枝廣　淳子","エダヒロ ジュンコ","EDAHIRO JUNKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118015","大江　健三郎","オオエ ケンザブロウ"," OOE KENZABURO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118016","大木　敦雄","オオキ アツオ","OOKI ATSUO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118018","大杉　栄","オオスギ サカエ","OOSUGI SAKAE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118019","大竹　智也","オオタケ テツヤ","OOTAKE TETSUYA","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118020","大橋　真也","オオハシ シンヤ","OOHASHI SHINYA","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118021","緒方　正人","オガタ マサト","OGATA MASATO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118022","落合　恵子","オチアイ ケイコ","OCHIAI KEIKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118023","片桐　ユズル","カタギリ ユズル","KATAGIRI YUZURU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118024","金子　みすず","カネコ ミスズ","KANEKO MISUZU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118025","金子　祐介","カネコ ユウスケ","KANEKO YUUSUKE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118026","川合　史朗","カワアイ シロウ","KAWAAI SHIROU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118027","川原　一之","カワハラ カズユキ","KAWAHARA KAZUYUKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118028","川本　輝夫","カワモト テルオ","KAWAMOTO TERUO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118029","管　謨業","カン ボウギョウ","KANN BOUGYOU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118030","李　京海","キキョカイ","KI KYOKAI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118031","北沢　洋子","キタザワ ヨウコ","KITAZAWA YOUKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118032","木下　是雄","キノシタ テルオ","KINOSHITA TERUO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118033","霧野　クミ","キリノ クミ","KIRINO KUMI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118034","金　明哲","キン ミョンチョル","KIN MYONCHORU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118035","工藤　惺文","クドウ セイフミ","KUDOU SEIFUMI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118036","園城　雅之","クニナり マサユキ","KUNINARI MASAYUKI	","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118037","久野　収","クノ オサム","KUNO OSAMU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118038","黒川　利明","クロカワ トシアキ","KUROKAWA TOSHIAKI	","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118039","桑原　史成","クワバラ シセイ","KAWAHARA SHISEI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118040","幸徳　秋水","コウトクシュッスイ","KOUTOKU SHUSSUI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118041","齋藤　正健","サイトウ マサタケ","SAITOU MASATAKE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118042","斎藤　美奈子","サイトウ ミナコ","SAITOU MINAKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118043","酒井　皇治","サカイ コウジ","SAKAI YUUJI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118044","佐久間　智子","サクマトモコ","SAKUMA TOMOKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118045","佐高　信","サダカ マコト","SADAKA MAKOTO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118046","佐藤　鶴江","サトウ ツルエ","SATOU TSURUE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118047","佐野　匡俊","サノマサトシ","SANO MASATOSHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118048","椎名　誠","シイナマコト","SHIINA MAKOTO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118049","白石　嘉治","シライシ ヨシハル","SHIRAISHI YOSHIHARU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118050","辛　淑玉","シン スゴ","SHIN SUGO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118051","杉本　栄子","スギモト エイコ","SUGIMOTO EIKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118052","鈴木　和也","スズキ カズヤ","SUZUKI KAZUYA","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118053","鈴木　裕子","スズキ ユウコ","SUZUKI YUUKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"151118054","DUONG　DINH　KHUE","ズオン ジン クエ" ,"DUONG DINH KHUE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117001","清　少納言","セイ ショウナゴン","SEI SHOUNAGON","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117002","高橋　康介","タカハシ コウスケ","TAKAHASHI KOUSUKE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117012","竹内　郁雄","タケウチ イクオ","TAKEUCHI IKUKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117014","田中　正造","タナカ ショウゾウ","TANAKA SHOUZOU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117005","田中　優","タナカ ユウ","TANAKA YUU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117006","田中　優子","タナカ ユウコ","TANAKA YUUKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117007","谷川　雁","タニガワ ガン","TANIGAWA GAN","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117008","谷崎　純一郎","タニザキ ジュンイチロウ","TANIZAKI JUNICHIRO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117009","筑紫　哲也","チクシ テツヤ","CHIKUSHI TETSUYA","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117010","辻　信一","ツジ シンイチ","TSUJI SHINICHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117011","富高　コユキ","トミタカ コユキ","TOMITAKA KOYUKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117012","豊田　栄子","トヨタ エイコ","TOYOTA EIKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117013","中江　兆民","ナカエ チョウミン","SAKAE CHOUMIN","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117014","中川　修治","ナカガワ シュウジ","NAKAGAWA SHUUJI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117015","中島　みゆき","ナカジマ ミユキ","NAKAJIMA MIYUKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117016","中村　隆市","ナカムラ リュウジ","NAKAMURA RYUUJI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117017","新納　浩幸","ニイロ ヒロユキ","NIIRO HIROYUKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117018","NGUYEN　HONG　LY","ニュエン ホン リ","NGUYEN HONG LY","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117019","野田　開","ノダ ヒラキ","NODA HIRAKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117020","野間　宏","ノマ ヒロシ","NOMA HIROSHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117021","畑　晴子","ハタ ハルコ","HATA HARUKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117022","蜂屋　邦夫","ハチヤ クニオ","HACHIYA KUNIO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117023","原田　正純","ハラダ マサズミ","HARADA MASAZUMI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117024","半田　剣一","ハンダ ケンイチ","HANNDA KENICHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117025","莫言","バク ゲン","MO YAN","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117026","日吉　フミコ","ヒヨシ フミコ","HIYOSHI FUMIKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117027","広瀬　雄二","ヒロセ ユウジ","HIROSE YUUJI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117028","藤原　誠","フジワラ マコト","FUJIWARA MAKOTO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117029","堀田　宣之","ホッタ ノブユキ","HOTTA NOBUYUKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117030","本多　勝一","ホンダ カツイチ","HONDA KATSUICHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117031","松下　竜一","マツシタ リュウイチ","MATUSHITA RYUUICHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117032","水丸　淳","ミズマル ジュン","MIZUMARU JUN","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117033","宮沢　賢治","ミヤザワ ケンジ","MIYAZAWA KENJI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117034","宮下　尚","ミヤシタ ナオ","MIYASHITA NAO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117035","宮本　成美","ミヤモト ナルミ","MIYAMOTO NARUMI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117036","村上　春樹","ムラカミ ハルキ","MURAKAMI HARUKI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117037","本橋　成一","モトハシ セイイチ","MOTOHASHI SEIICHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117038","本橋　哲也","モトハシ テツヤ","MOTAHASHI TETSUYA","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117039","元吉　文男","モトヨシ フミオ","MOTOYOSHI FUMIO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117040","森　鴎外","モリ オウガイ","MORI OUGAI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117041","森崎　和江","モリサキ カズエ","MORISAKI KAZUE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117042","山本　和彦","ヤマモト カズヒコ","YAMAMOTO KAZUHIKO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117043","山本　太郎","ヤマモト タロウ","YAMAMOTO TAROU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117044","山森　徹","ヤマモリ トオル","YAMAMORI TOORU","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117045","湯浅　誠","ユアサ マコト","YUASA MAKOTO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117046","横山　晶一","ヨコヤマ ショウイチ","YOKOYAMA SHOUICHI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117047","吉澤　美穂","ヨシザワ ミホ","YOSHIZAWA MIHO","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117048","るびきち","ルビキチ","RUBY KITCH","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117049","若松　英介","ワカマツ エイスケ","WAKAMATSU EISUKE","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117050","渡部　京二","ワタベ キョウジ","WATABE KYOUJI","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"
"133117051","和田　英一","ワダ エイイチ","Wada Eiichi","1","南九大 環境園芸学部 環境園芸学科 環境園芸","南九大 環境園芸学部 環境園芸学科 環境園芸"

#Racket #DrRacket #LearningRacket #Programming #LearningProgramming#Scheme #RacketThroughExamples #facdev #Education #ClassRoomAdministration #Roll #DRY #DontRepeatYourself #FS4FT #FreeSoftwareForFreeTeachers

– https://snap.as/bsmall2/racket-facdev/Binke65

I got a Guile script go through a directory of .csv data files (encoded in SJIS) and produce three useful files (encoded in UTF-8) for each data file. The next step is to get DrRacket to do the process below for several .csv files. And then another script should make it possible to use an edited ~-roll-data.rkt file to produce another seating chart. Sometimes the class needs a different ordering of seats: for example, people with hearing trouble might do better at the front of the class. And some class-rooms demand a wider row, in stead of a six-person row, a large class might need a ten-person row. But for now, this code, with build-path is probably more portable than my first attempt in Guile Scheme. (fn:1)

And comparing this Racket Script with the Guile Script is a chance to see differences among regexp-replace\* and regexp-substitute/global, scribble\html\html with its output-xml and sxml simple with its sxml->xml. I enjoyed the oppornity to practice quasiquote while learning to work with sxml->xml, but for the pages I generate here scribble\html and output-xml seems simpler. My regular expression needs are met by the simpler regexp-replace\* , but with more complex processes the pre andpost approach for regexpt![img](images/SJIS-csv-to-RollSheet-SeatingChart-1.png) -substitute/global might be helpful.

– https://snap.as/bsmall2/racket-facdev/SNzGnvo

code

#lang racket

(define base-dir “NanKyuRoll”)

(define working-directory (build-path (find-system-path 'home-dir) base-dir)) ;; csv-data-file (define data-file-name (build-path working-directory “data” “2018” “1” “EK1- a.csv”))

;; go through list of file names from the directory ;; given from command-line.

;; get from command-line, default to 6 (define seat-row-num “6”)

(define end-ext-dta “-roll-data.rkt”) (define end-ext-htm “-roll-sheet.html”) (define end-ext-seats (string-append “-seat-chart” “–” seat-row-num “.html”))

;; use at the end of the semester to output bureacratic report (define end-ext-attnd “-attendance.html”)

;; get and clean data from sjis-encoded .csv file (define characters-to-replace '((”\“” “”) (” “ ” “) (”\u3000” “ “) (“�K” “II”) (“” “今”) (“” “別”) (“” “匡”)))

(define clean-sjis-string (lambda (sjis-str char-rplc-list) (let ((new-str sjis-str)) (for-each (lambda (pair) (set! new-str (regexp-replace* (regexp (car pair)) new-str (cadr pair)))) char-rplc-list) new-str)))

(define get-sjis-file-contents-as-list-of-strings (lambda (fstr char-pairs) (let* ((inf (open-input-file fstr)) (iu8 (reencode-input-port inf “SJIS”)) (str (port->string iu8)) (cln-str (clean-sjis-string str char-pairs))) ;; closes port too (string-split cln-str “\n”))))

(define got-strs (get-sjis-file-contents-as-list-of-strings data-file-name characters-to-replace))

(define got-lsts (map (lambda (s) (string-split s “,”)) got-strs))

;; class data lists from first two lines of .csv file (define cls-dta-lst (list (car got-lsts) (cadr got-lsts))) ;; student data lists from third line on of .csv file (define stt-dta-lst (cdddr got-lsts))

;; from data table-style rows from .csv file ;; make associative lists (define transpose-rows-columns (lambda (lol) ;; list of lists (define helper (lambda (lol keep) (cond ((null? (car lol)) (reverse keep)) (#t (helper (map cdr lol) (cons (map car lol) keep)))))) (helper lol '())))

;; associative list reference (define als-ref (lambda (key als) (let ((tmp (assoc key als))) (if tmp (cadr tmp) #f))))

(define cls-als (transpose-rows-columns cls-dta-lst))

(define stt-rll-dta (map (lambda (row) (list (first row) (second row))) stt-dta-lst))

;; (require racket/pretty) not-needed? (define defntn-symbol-to-string (lambda (symbl deftn) (let ((dfn “”) (os (open-output-string))) (pretty-print (append (cons 'define (list symbl)) (list deftn)) os) (set! dfn (get-output-string os)) (set! dfn (regexp-replace #rx”\(\(” dfn “'((”)) (set! dfn (regexp-replace #rx“'\(define “ dfn “(define “)) dfn)))

(define from-als-name-directory (lambda (als) (build-path (find-system-path 'home-dir) base-dir (als-ref “年度” als) (als-ref “学期” als)))) (define from-als-make-directory (lambda (als) (make-directory* (from-als-name-directory als)))) (define from-als-name-file (lambda (als end-ext) (let ((time (als-ref “開講曜日” als)) (clss (als-ref “科目名” als))) (build-path (path->string (from-als-name-directory als)) (string-append time clss end-ext))))) (define roll-file (from-als-name-file cls-als end-ext-dta)) (define roll-sheet (from-als-name-file cls-als end-ext-htm))

;; only need first two columns from sjis-csv-data above (require (only-in srfi/1 iota)) ;; set the number of class-meetings used for roll-sheet (define classes 15) ; (define roll-heads ; '(“学籍番号” “学生氏名” 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 tst grd)) (define roll-heads (cons “学籍番号” (cons “学生氏名” (append (iota classes 1) (cons 'tst '(grd)))))) ;; one underline per cell under each class number in roll table (define class-lines (map (lambda (n) “_“) (iota classes)))

(define roll-data (lambda (stdt-list) (map (lambda (lst) (list (car lst) (cadr lst))) stdt-list))) ;; later get the keys and the roll-heads from cls-als data position? (define stdt-keys (list (first roll-heads)(second roll-heads))) ;; “学籍番号” “学生氏名” (define clss-keys '(“年度” “学期” “科目名” “開講曜日” “開講教室” “教員氏名”)) (define comment-string-sample-roll-date-lists “ ;; ;; (define rll-dta ;; ;; '((\“1531116007\” \“石牟礼 道子\” 1 0 1 1 1 0 1 1 0 1 1 0 1 1 1) ;; cls-dts need to be entered during/after the semester ;; (define cls-dts ;; '((10 01)(10 15)(10 22)(10 29)(11 5)(11 12)(11 19)(11 26) ;; (12 3)(12 10)(12 17)(1 7)(1 21)(1 28)(2 4)))
“ )

(define start-roll-data-file (lambda (als end-ext) (let ((out-fle (open-output-file ;; (build-path ;; (from-als-name-directory als) (from-als-name-file als end-ext) #:exists 'replace))) (display comment-string-sample-roll-date-lists out-fle) (close-output-port out-fle))))

;; (start-roll-data-rkt roll-file explan-string) (start-roll-data-file cls-als end-ext-dta)

;; This procedure puts symbols and their definitions into roll-data file (define add-to-roll-data-file (lambda (sym f-als s-als) ;; file als, and symbol als, not alwasy the same (let ((apnd-file (open-output-file (from-als-name-file f-als end-ext-dta) #:exists 'append))) ;; earlier version worked with emacs geiser, but got #%top errors in DrRacket (display (defntn-symbol-to-string sym s-als) apnd-file) (close-output-port apnd-file))))

;; only need two definitions so far ;; avoiding #%top issues with eval (add-to-roll-data-file 'cls-als cls-als cls-als)
(add-to-roll-data-file 'stt-rll-dta cls-als stt-rll-dta)

(require scribble/html) ;; for output-xml (require scribble/html/html) ;; for table etc ;; clss-keys stdt-keys (define class-table (lambda (als kys) (table class: “classinfo” (tr (map (lambda (ky) (th (car (assoc ky als)))) kys)) (tr (map (lambda (ky) (td (cadr (assoc ky als)))) kys)))))

;; use class-lines as global variable, or argument? (define roll-table (lambda (als kys) (table class: “roll” (tr (map (lambda (hd) ;; any need to separate keys from nums, tst, grd? as in Guile script? (th class: “hdr” hd)) roll-heads)) (map (lambda (ls) (tr (td class: “num” (car ls)) (td class: “stu” (cadr ls)) (map (lambda (s) (td class: “line” s)) class-lines))) als))))

;; -rll-sht-.html (define class-sheet-html (lambda (class-alst cls-kys stdn-alst stn-kys) (let ((page-ttle (path->string (file-name-from-path (from-als-name-file class-alst “”)))) (out-file (open-output-file roll-sheet #:exists 'replace))) (output-xml (xhtml (head (title page-ttle ) (meta http-equiv: “Content-Type” content: “text/html;charset=utf-8”) (map style (list ;;saves spase to map style over a list of strings “h2 { font-weight: normal; }” “table.classinfo { margin: 1em 0 3em 0; } “ “table.classinfo td, th { font-weight: normal; padding-right: 1em; text-align: left; }” “table.roll th { font-weight: 50; font-size: 9pt; }” “table.roll td {padding-right: .5em; text-align: left; }” “table.rollsymbols td.date {font-size: 9pt; text-align: right; }” “td.num { font-size: 8pt; }” “td.stu { font-size: 10pt; width: 6em; }” “td.blank { padding: 10px 0px 2px 0px; text-align: center; }” “table.seating td {padding: 4px 6px 6px 6px; font-size: 11pt; }“))) (body (h2 page-ttle) (class-table class-alst cls-kys) (roll-table stdn-alst stn-kys) )) out-file) (close-output-port out-file))))

(class-sheet-html cls-als clss-keys stt-rll-dta stdt-keys)

;; end roll-sheet generation ;; start seating chart generation (define seat-chart (from-als-name-file cls-als end-ext-seats))

(define fill-row (lambda (lst num) (cond ((= 0 num) (reverse lst)) (#t (fill-row (cons '(”” “”) lst) (sub1 num))))))

(define split-rows (lambda (list limt) (let ((lim (if (number? limt) limt (string->number limt))) (rows '())) (define helper ;; re-write with split-at and drop later (lambda (lst now prt prts) (cond ((null? lst)(reverse (cons (fill-row prt (– lim now)) prts))) ((= lim now)(helper lst 0 '() (cons (reverse prt) prts))) (#t (helper (cdr lst) (add1 now) (cons (car lst) prt) prts))))) (helper list 0 '() '()))))

(define lng-nme->lst-nme (lambda (name) (if (> 7 (string-length name)) name (last (string-split name)))))

(define stdt-cell (lambda (pair) (td (lng-nme->lst-nme (cadr pair)) (br) (car pair))))

;; stt-rll-dta in current flow, ;; or import roll-file from -roll-data.rkt if hand-change order in .rkt file (define seat-table ;; for now outupt a default 6 seater row .html page (lambda (rll-dta lmt) (table class: “seating chart” (map (lambda (row) (tr (map (lambda (pair) (stdt-cell pair)) row))) (split-rows rll-dta lmt))))) ;; (output-xml (seat-table stt-rll-dta seat-row-num))

(define class-seating-html (lambda (rll-dta row-len) (let ((out-file (open-output-file seat-chart #:exists 'replace)) (page-ttle (path->string (file-name-from-path seat-chart)))) (output-xml (xhtml (head (title page-ttle ) (meta http-equiv: “Content-Type” content: “text/html;charset=utf-8”) (map style (list ;;saves spase to map style over a list of strings “@page { size: 210mm 297mm; margin: 4mm 4mm 6mm 4mm; }” “h2 { font-weight: normal; }” “table.teacher {border: thin solid; margin: -2em 2em 2em 20em; padding: .5em 1em .5em 1em;}” “table.seating td {padding: 3px 6px 4px 6px; font-size: 11pt; } “))) (body (p page-ttle) (table class: “teacher box” (tr (td “teacher”)))
(seat-table rll-dta row-len))) out-file) (close-output-port out-file))))

(class-seating-html stt-rll-dta seat-row-num)

Data

Emacs has learned to read the sjis encoded .csv files so that the buffers is not filled with numbers and the occasional legible quote. If anyone wants to save the data into a “NanKyuRoll” working-directory in their home directory to make the code work, LibreOffice's Calc can help with different encodings. EmacsWiki helps me deal with encodings in Emacs: – https://www.emacswiki.org/emacs/ChangingEncodings

“年度”,“学期”,“授業コード”,“科目コード”,“科目名”,“科目名＿英語”,“教員氏名”,“教員氏名＿カナ”,“教員氏名＿英語”,“開講区分”,“開講曜日”,“開講教室” “2018”,“前期”,“31242”,“142000”,“英会話I”,“English ConversationI”,“ﾌﾞﾗｲｱﾝ・ｽﾓｰﾙ”,“ブライアン・スモール”,“Small Brian”,“週間授業”,“火4”,“1409(小講義)” “学籍番号”,“学生氏名”,“学生氏名＿カナ”,“学生氏名＿英語”,“学年”,“カリキュラム学科名称”,“所属学科名称”,“備考” “151116070”,“相沢　佳子”,“アイザワ ヨシコ”,“AIZAWA YOSHIKO”,“4”,“南九大 環境園芸学部 環境園芸学科 園芸学分野”,“南九大 環境園芸学部 環境園芸学科 園芸学分野” “151117035”,“青木　幸雄”,“アオキ ユキオ”,“AOKI YUKIO”,“3”,“南九大 環境園芸学部 環境園芸学科 造園学分野”,“南九大 環境園芸学部 環境園芸学科 造園学分野” “151118001”,“芥川　仁”,“アクタガワ ジン”,“AKUTAGAWA JIN”,“2”,“南九大 環境園芸学部 環境園芸学科 園芸学分野”,“南九大 環境園芸学部 環境園芸学科 園芸学分野” “151118002”,“雨宮　処凛”,“アマミヤ カリン”,“AMAMIYA KARIN”,“2”,“南九大 環境園芸学部 環境園芸学科 造園学分野”,“南九大 環境園芸学部 環境園芸学科 造園学分野” “151118003”,“新井　貴之”,“アライ タカユキ”,“ARAI TAKAYUKI”,“2”,“南九大 環境園芸学部 環境園芸学科 造園学分野”,“南九大 環境園芸学部 環境園芸学科 造園学分野” “151118004”,“荒畑　寒村”,“アラハタ サンソン”,“ARAHATA SANSON”,“2”,“南九大 環境園芸学部 環境園芸学科 園芸学分野”,“南九大 環境園芸学部 環境園芸学科 園芸学分野” “151118005”,“粟飯原　文子”,“アリハラシ フミコ”,“ARIHARASHI FUMIKO”,“2”,“南九大 環境園芸学部 環境園芸学科 園芸学分野”,“南九大 環境園芸学部 環境園芸学科 園芸学分野” “151118006”,“安藤　昌益”,“アンドウ ショウエキ”,“ANDOU SHOUEKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118007”,“石牟礼　道子”,“イシムレ ミチコ”,“ISHIMURE MICHIKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118008”,“井上　ひさし”,“イノウエ ヒサシ”,“INOUE HISASHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118009”,“宇井　純”,“ウイ ジュン”,“UI JUN”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118010”,“上野　登”,“ウエノ ノボル”,“UENO NOBORU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118011”,“上野　英信”,“ウエノ ヒデノブ”,“UENO HIDENOBU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118012”,“宇都宮　健児”,“ウトミヤ ケンジ”,“UTOMIYA KENJI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118013”,“江口　幹”,“エグチ カン”,“EGUCHI KAN”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118014”,“枝廣　淳子”,“エダヒロ ジュンコ”,“EDAHIRO JUNKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118015”,“大江　健三郎”,“オオエ ケンザブロウ”,” OOE KENZABURO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118016”,“大木　敦雄”,“オオキ アツオ”,“OOKI ATSUO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118018”,“大杉　栄”,“オオスギ サカエ”,“OOSUGI SAKAE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118019”,“大竹　智也”,“オオタケ テツヤ”,“OOTAKE TETSUYA”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118020”,“大橋　真也”,“オオハシ シンヤ”,“OOHASHI SHINYA”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118021”,“緒方　正人”,“オガタ マサト”,“OGATA MASATO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118022”,“落合　恵子”,“オチアイ ケイコ”,“OCHIAI KEIKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118023”,“片桐　ユズル”,“カタギリ ユズル”,“KATAGIRI YUZURU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118024”,“金子　みすず”,“カネコ ミスズ”,“KANEKO MISUZU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118025”,“金子　祐介”,“カネコ ユウスケ”,“KANEKO YUUSUKE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118026”,“川合　史朗”,“カワアイ シロウ”,“KAWAAI SHIROU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118027”,“川原　一之”,“カワハラ カズユキ”,“KAWAHARA KAZUYUKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118028”,“川本　輝夫”,“カワモト テルオ”,“KAWAMOTO TERUO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118029”,“管　謨業”,“カン ボウギョウ”,“KANN BOUGYOU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118030”,“李　京海”,“キキョカイ”,“KI KYOKAI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118031”,“北沢　洋子”,“キタザワ ヨウコ”,“KITAZAWA YOUKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118032”,“木下　是雄”,“キノシタ テルオ”,“KINOSHITA TERUO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118033”,“霧野　クミ”,“キリノ クミ”,“KIRINO KUMI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118034”,“金　明哲”,“キン ミョンチョル”,“KIN MYONCHORU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118035”,“工藤　惺文”,“クドウ セイフミ”,“KUDOU SEIFUMI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118036”,“園城　雅之”,“クニナり マサユキ”,“KUNINARI MASAYUKI “,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118037”,“久野　収”,“クノ オサム”,“KUNO OSAMU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118038”,“黒川　利明”,“クロカワ トシアキ”,“KUROKAWA TOSHIAKI “,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118039”,“桑原　史成”,“クワバラ シセイ”,“KAWAHARA SHISEI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118040”,“幸徳　秋水”,“コウトクシュッスイ”,“KOUTOKU SHUSSUI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118041”,“齋藤　正健”,“サイトウ マサタケ”,“SAITOU MASATAKE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118042”,“斎藤　美奈子”,“サイトウ ミナコ”,“SAITOU MINAKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118043”,“酒井　皇治”,“サカイ コウジ”,“SAKAI YUUJI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118044”,“佐久間　智子”,“サクマトモコ”,“SAKUMA TOMOKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118045”,“佐高　信”,“サダカ マコト”,“SADAKA MAKOTO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118046”,“佐藤　鶴江”,“サトウ ツルエ”,“SATOU TSURUE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118047”,“佐野　匡俊”,“サノマサトシ”,“SANO MASATOSHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118048”,“椎名　誠”,“シイナマコト”,“SHIINA MAKOTO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118049”,“白石　嘉治”,“シライシ ヨシハル”,“SHIRAISHI YOSHIHARU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118050”,“辛　淑玉”,“シン スゴ”,“SHIN SUGO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118051”,“杉本　栄子”,“スギモト エイコ”,“SUGIMOTO EIKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118052”,“鈴木　和也”,“スズキ カズヤ”,“SUZUKI KAZUYA”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118053”,“鈴木　裕子”,“スズキ ユウコ”,“SUZUKI YUUKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “151118054”,“DUONG　DINH　KHUE”,“ズオン ジン クエ” ,“DUONG DINH KHUE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117001”,“清　少納言”,“セイ ショウナゴン”,“SEI SHOUNAGON”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117002”,“高橋　康介”,“タカハシ コウスケ”,“TAKAHASHI KOUSUKE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117012”,“竹内　郁雄”,“タケウチ イクオ”,“TAKEUCHI IKUKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117014”,“田中　正造”,“タナカ ショウゾウ”,“TANAKA SHOUZOU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117005”,“田中　優”,“タナカ ユウ”,“TANAKA YUU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117006”,“田中　優子”,“タナカ ユウコ”,“TANAKA YUUKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117007”,“谷川　雁”,“タニガワ ガン”,“TANIGAWA GAN”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117008”,“谷崎　純一郎”,“タニザキ ジュンイチロウ”,“TANIZAKI JUNICHIRO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117009”,“筑紫　哲也”,“チクシ テツヤ”,“CHIKUSHI TETSUYA”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117010”,“辻　信一”,“ツジ シンイチ”,“TSUJI SHINICHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117011”,“富高　コユキ”,“トミタカ コユキ”,“TOMITAKA KOYUKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117012”,“豊田　栄子”,“トヨタ エイコ”,“TOYOTA EIKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117013”,“中江　兆民”,“ナカエ チョウミン”,“SAKAE CHOUMIN”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117014”,“中川　修治”,“ナカガワ シュウジ”,“NAKAGAWA SHUUJI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117015”,“中島　みゆき”,“ナカジマ ミユキ”,“NAKAJIMA MIYUKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117016”,“中村　隆市”,“ナカムラ リュウジ”,“NAKAMURA RYUUJI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117017”,“新納　浩幸”,“ニイロ ヒロユキ”,“NIIRO HIROYUKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117018”,“NGUYEN　HONG　LY”,“ニュエン ホン リ”,“NGUYEN HONG LY”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117019”,“野田　開”,“ノダ ヒラキ”,“NODA HIRAKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117020”,“野間　宏”,“ノマ ヒロシ”,“NOMA HIROSHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117021”,“畑　晴子”,“ハタ ハルコ”,“HATA HARUKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117022”,“蜂屋　邦夫”,“ハチヤ クニオ”,“HACHIYA KUNIO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117023”,“原田　正純”,“ハラダ マサズミ”,“HARADA MASAZUMI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117024”,“半田　剣一”,“ハンダ ケンイチ”,“HANNDA KENICHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117025”,“莫言”,“バク ゲン”,“MO YAN”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117026”,“日吉　フミコ”,“ヒヨシ フミコ”,“HIYOSHI FUMIKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117027”,“広瀬　雄二”,“ヒロセ ユウジ”,“HIROSE YUUJI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117028”,“藤原　誠”,“フジワラ マコト”,“FUJIWARA MAKOTO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117029”,“堀田　宣之”,“ホッタ ノブユキ”,“HOTTA NOBUYUKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117030”,“本多　勝一”,“ホンダ カツイチ”,“HONDA KATSUICHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117031”,“松下　竜一”,“マツシタ リュウイチ”,“MATUSHITA RYUUICHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117032”,“水丸　淳”,“ミズマル ジュン”,“MIZUMARU JUN”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117033”,“宮沢　賢治”,“ミヤザワ ケンジ”,“MIYAZAWA KENJI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117034”,“宮下　尚”,“ミヤシタ ナオ”,“MIYASHITA NAO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117035”,“宮本　成美”,“ミヤモト ナルミ”,“MIYAMOTO NARUMI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117036”,“村上　春樹”,“ムラカミ ハルキ”,“MURAKAMI HARUKI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117037”,“本橋　成一”,“モトハシ セイイチ”,“MOTOHASHI SEIICHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117038”,“本橋　哲也”,“モトハシ テツヤ”,“MOTAHASHI TETSUYA”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117039”,“元吉　文男”,“モトヨシ フミオ”,“MOTOYOSHI FUMIO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117040”,“森　鴎外”,“モリ オウガイ”,“MORI OUGAI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117041”,“森崎　和江”,“モリサキ カズエ”,“MORISAKI KAZUE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117042”,“山本　和彦”,“ヤマモト カズヒコ”,“YAMAMOTO KAZUHIKO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117043”,“山本　太郎”,“ヤマモト タロウ”,“YAMAMOTO TAROU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117044”,“山森　徹”,“ヤマモリ トオル”,“YAMAMORI TOORU”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117045”,“湯浅　誠”,“ユアサ マコト”,“YUASA MAKOTO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117046”,“横山　晶一”,“ヨコヤマ ショウイチ”,“YOKOYAMA SHOUICHI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117047”,“吉澤　美穂”,“ヨシザワ ミホ”,“YOSHIZAWA MIHO”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117048”,“るびきち”,“ルビキチ”,“RUBY KITCH”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117049”,“若松　英介”,“ワカマツ エイスケ”,“WAKAMATSU EISUKE”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117050”,“渡部　京二”,“ワタベ キョウジ”,“WATABE KYOUJI”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸” “133117051”,“和田　英一”,“ワダ エイイチ”,“Wada Eiichi”,“1”,“南九大 環境園芸学部 環境園芸学科 環境園芸”,“南九大 環境園芸学部 環境園芸学科 環境園芸”

footnotes (fn:

• (fn:1) https://write.as/bs2gs/from-csv-file-generate-roll-sheet-and-seat-chart
• (fn:2) https://docs.racket-lang.org/getting-started/index.html
  • https://write.as/bs2lr/
    • https://write.as/bs2lr/starting-with-list-map-build-and-integer-char
    • https://write.as/bs2lr/ideas-for-learners-with-an-interest-in-numbers
      

#Racket #DrRacket #LearningRacket #Programming #LearningProgramming#Scheme #RacketThroughExamples #facdev #Education #ClassRoomAdministration #Roll #DRY #DontRepeatYourself