DouKaku?beta

解答・コメントを送る方法

コメントを送るには2つの方法があります。
  • 匿名でコメントを書く
    ログインせずにコメントを書くことができます。 名前は「匿名」となります。
  • アカウントを作成してコメントを書く
    アカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
どちらの場合も投稿後の修正・削除はできないので、 投稿前によくご確認下さい。

投稿ボタンを押す前に以下の文章を確認してください

  • 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
    Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]
  • あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
  • 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
  • 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
  • これらのことにあなたはあらかじめ同意したものとみなされます。

Post comment

Post a comment to the following challenge: 逆順になるあみだくじ (Nested Flatten)

As a reply to the following comment: kacchi: 自分なりに頑張ってみました。(#819) [show]

[hide] 
自分なりに頑張ってみました。
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(use srfi-1)
(use util.list)

(define (bblsort ls)
  (define (bbl e ls)
    (cond ((null? ls) (list e))
          ((> (car ls) e) (cons (car ls) (bbl e (cdr ls))))
          (else (cons e (bbl (car ls) (cdr ls))))))
  (let loop ((ls ls) (acc '()))
    (cond ((null? ls) (reverse! acc))
          (else (loop (cdr ls) (bbl (car ls) acc))))))

(define (amida n)
  (define (row n i)
    (let ((s (list->string (intersperse #\space (make-list n #\|)))))
      (when i (string-set! s (+ (* i 2) 1) #\_))
      s))
  (define sorted-list
    (let loop ((ls (iota n)) (sorted '()))
      (cond ((null? ls) (reverse! sorted))
            (else (loop (cdr ls) (cons (bblsort ls) sorted))))))

  (dolist (x (car sorted-list)) (display x) (display #\space))
  (display #\newline)
  (do ((ls (cdr sorted-list) (cdr ls))
       (i 1 (+ i 1)))
      ((null? ls))
    (do ((ls (car ls) (cdr ls))
         (len (length ls) (- len 1)))
        ((zero? len))
      (print (row (length sorted-list) (- (car ls) i)))))
  (print (row (length sorted-list) #f))
  (dolist (x (reverse (car sorted-list))) (display x) (display #\space))
  )

(amida 7)
コメント本文
 形式 [?]
コード
 言語
タグ
半角スペースで区切って複数のタグを入力できます。
参考ページタイトル

参考ページURL
利用規約を読んで同意する必要があります。
by guest

Index

Feed

Other

Link

Pathtraq

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