Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2008-03-25

QiでL-99 (P16 周期Nで要素を間引く)

| 19:16 | QiでL-99 (P16 周期Nで要素を間引く) - わだばLisperになる を含むブックマーク はてなブックマーク - QiでL-99 (P16 周期Nで要素を間引く) - わだばLisperになる

いくらなんでも、L-99ばっかりやり過ぎな気がしてきた(笑)

\(drop [a b c d e f g h i k] 3)
\=> [a b d e g h k]

(define drop
  X N -> (drop* X N 1))

(define drop* 
  [ ] _ _ -> [ ]
  [H | T] N Cnt -> (drop* T N 1) where (= N Cnt)
  [H | T] N Cnt -> [H | (drop* T N (1+ Cnt))])