DouKaku?beta

Comment detail

倍数になる13進数 (Nested Flatten) 

	

	
	
	
    

      
1
2
3
4
5
6
7
8
9
(define (multinum)
  (define (obase-13 n)
    (string->number (number->string n) 13))
  (let loop ((n 10))
    (if (zero? (remainder (obase-13 n) n))
        n
        (loop (+ n 1)))))

(print (multinum))




    

	

  
  








  
    

      
      







  
  

	

	  
間違って大文字ではじまる"G"aucheタグをつくってしまいました。
すいません。

	

	
	
	

  
  








  
    

      
      







  
  

	

	  消しておきました。
	

	
	
	

  
  








  


    

  


    

  
    

      
      







  
  

	

	  string->numberって基数を変えられたんですねぇ。便利だ。
参考にして、ストリームを使った意欲作(笑)にしてみました。
4つ目から出力されません。
	

	
	
	
    

      
1
2
3
(use util.stream)
(define (p n) (zero? (remainder (string->number (number->string n) 13) n)))
(stream-for-each print (stream-filter p (stream-iota -1 10)))




    

	

  
  








  


    

  















Index





Feed










Other





Link




Pathtraq



loading...














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