Samurai Helmets
news.kynosarges.org
Samurai Helmets
1–10 of 91 posts
Re: Samurai Helmets
#2If anyone lives in London and would like to investigate how the ancient sword arts of japan tie into meditation, I highly recommend http://battodo-fudokan.co.uk/
Re: Samurai Helmets
#3(define (get) (get1 (quote ()) (read)))(define (get1 b r) (if (eof-object? r) (reverse b) (get1 (cons r b) (read))))(define (put) (put1 (quote ()) (read-char)))(define (put1 b r) (if (eof-object? r) (list->string (reverse b)) (if (char=? #\) r) (put1 (cons #\. (cons #\. (cons r b))) (read-char)) (put1 (cons r b) (read-char)))))(define (final lis) (if (null? lis) lis (final1 (car lis) (cdr lis))))(define (final1 f r) (if (and (pair? f) (pair? (cdr f)) (eqv? (quote quote) (car f))) (cons f (final (cdr r))) (if (list? f) (final2 f (gather (count (car r)) (cons (quote ()) (final (cdr r))))) (if (or (vector? f) (pair? f) (eq? #\) f)) (cons f (final (cdr r))) (cons f (final r))))))(define (final2 f g) (cons (append (final f) (car g)) (cdr g)))(define (count s) (- (string-length (symbol->string s)) 2))(define (gather c lis) (if (= c 0) (cons (reverse (car lis)) (cdr lis)) (gather (- c 1) (cons (cons (cadr lis) (car lis)) (cddr lis)))))(for-each write (final (with-input-from-string (put) get)))
Re: Samurai Helmets
#4What is the mass of the helmet?
Re: Samurai Helmets
#5(define (get) (get1 (quote ()) (read)))(define (get1 b r) (if (eof-object? r) (reverse b) (get1 (cons r b) (read))))(define (put) (put1 (quote ()) (read-char)))(define (put1 b r) (if (eof-object? r) (list->string (reverse b)) (if (char=? #\) r) (put1 (cons #\. (cons #\. (cons r b))) (read-char)) (put1 (cons r b) (read-char)))))(define (final lis) (if (null? lis) lis (final1 (car lis) (cdr lis))))(define (final1 f r)…
Nice try bot, whatever it is you were trying to do
Re: Samurai Helmets
#6(define (get) (get1 (quote ()) (read)))(define (get1 b r) (if (eof-object? r) (reverse b) (get1 (cons r b) (read))))(define (put) (put1 (quote ()) (read-char)))(define (put1 b r) (if (eof-object? r) (list->string (reverse b)) (if (char=? #\) r) (put1 (cons #\. (cons #\. (cons r b))) (read-char)) (put1 (cons r b) (read-char)))))(define (final lis) (if (null? lis) lis (final1 (car lis) (cdr lis))))(define (final1 f r)…
Seems legit.
Re: Samurai Helmets
#7After looking at pictures of a bunch of samurai helmets, I came to a realization that Darth Vader's helmet is more or less the shape of a samurai helmet. Maybe this should have been obvious to me (especially being a fan of the Hidden Fortress film), but it was a cool discovery for me.
Re: Samurai Helmets
#8If anyone lives in London and would like to investigate how the ancient sword arts of japan tie into meditation, I highly recommend http://battodo-fudokan.co.uk/
From the websight "Nakamura Ryu Battodo is a distillation of traditional Japanese swordsmanship ..."
In other words, it is not a traditional sword system but a modern one.
Re: Samurai Helmets
#9(define (get) (get1 (quote ()) (read)))(define (get1 b r) (if (eof-object? r) (reverse b) (get1 (cons r b) (read))))(define (put) (put1 (quote ()) (read-char)))(define (put1 b r) (if (eof-object? r) (list->string (reverse b)) (if (char=? #\) r) (put1 (cons #\. (cons #\. (cons r b))) (read-char)) (put1 (cons r b) (read-char)))))(define (final lis) (if (null? lis) lis (final1 (car lis) (cdr lis))))(define (final1 f r)…
Nice try bot, whatever it is you were trying to do
You have to at least give credit that the bot was apparently written in lisp.
Re: Samurai Helmets
#10There's an interesting helmet with a large statue of Fudo Myo-o, the "immovable radiant king" of Shingon Buddhism.
I don't recall seeing another helmet with a full statue. Are there more examples?