很快微信开发者平台

 找回密码
 注册
查看: 20819|回复: 28

[线上活动] 情人节表白代码有奖征集,单身汪求安慰!

[复制链接]

47

主题

124

帖子

2138

积分

网站编辑

Rank: 8Rank: 8

积分
2138
 楼主| 发表于 2016-2-14 15:46:53 | 显示全部楼层 |阅读模式
一年一度的2.14又来了,看着其他人拿着鲜花、搂着美女,作为高智商高收入的程序汪,我们只能有代码和右手相陪!(中午不秀恩爱的,就不要秀了,再秀恩爱,早晚会有报应的)

654035579003875278.jpg

既然是这样,那就让我将单身革命进行到底,看活动!

大家可以把自己收藏的情人节或者用于表白的代码贡献出来(最好但不限于H5),有配图最好,要求能够运行起来。活动结束后选择一位最佳贡献者,奖励200微币,并发放一枚“五道杠” wdg.gif 勋章!

活动截止时间:2016.2.16
最后附上程序员之歌一首:
写字楼里写字间,写字间里程序员;
程序人员写程序,又拿程序换酒钱;
酒醒只在网上坐,酒醉还来网下眠;
酒醉酒醒日复日,网上网下年复年;
但愿老死电脑间,不愿鞠躬老板前;
奔驰宝马贵者趣,公交自行程序员;
别人笑我忒疯癫,我笑自己命太贱;
不见满街漂亮妹,哪个归得程序员。

大家快快行动起来吧,不管表白代码是你的还是网上看到的,都可以分享出来。帮帮那些不会写代码的单身狗吧!
回复

使用道具 举报

6

主题

221

帖子

1726

积分

专家路上

积分
1726
发表于 2016-2-14 16:16:43 | 显示全部楼层
99669999996669999996699666699666999966699666699
99699999999699999999699666699669966996699666699
99669999999999999996699666699699666699699666699
99666699999999999966666999966699666699699666699
99666666999999996666666699666699666699699666699
99666666669999666666666699666669966996699666699
99666666666996666666666699666666999966669999996


ctrl+f,然后,输入9,这样算不算?
回复

使用道具 举报

36

主题

80

帖子

1276

积分

专家路上

积分
1276
发表于 2016-2-14 16:20:40 | 显示全部楼层
来一个长的吧,99个我爱你的写法。

  1. ;;;
  2. '(I love you)

  3. ;;;
  4. (quote (I love you))

  5. ;;;
  6. (list 'I 'love 'you)

  7. ;;;
  8. (list (quote I) (quote love) (quote you))

  9. ;;;
  10. (cons 'I (cons 'love (cons 'you '())))

  11. ;;;
  12. (cons 'I (cons 'love (list 'you)))

  13. ;;;
  14. (cons 'I (list 'love 'you))

  15. ;;;
  16. (cons 'I '(love you))

  17. ;;;
  18. '(I love . (you))

  19. ;;;
  20. '(I . (love . (you)))

  21. ;;;
  22. '(I . (love . (you . ())))

  23. ;;;
  24. '(I . (love you))


  25. ;;;
  26. `(I love you)

  27. ;;;
  28. `(I ,'love you)

  29. ;;
  30. (quasiquote (I ,'love  you))

  31. ;;
  32. (quasiquote (I (unquote 'love) you))

  33. ;;;
  34. `(I ,`love you)

  35. ;;;
  36. (let ([verb 'love])
  37.   `(I ,verb you))

  38. ;;;
  39. `(I ,(string->symbol "love") you)

  40. ;;;
  41. `(I ,(string->symbol (list->string '(#\l #\o #\v #\e))) you)

  42. ;;;
  43. `(I love . (you))

  44. ;;;
  45. `(I love . ,(list 'you))

  46. ;;;
  47. `(I love ,@'(you))

  48. ;;;
  49. `(I love (unquote-splicing '(you)))

  50. ;;;
  51. `(I ,@(list 'love 'you))

  52. ;;;
  53. `(,@(list 'I 'love) you)

  54. ;;;
  55. `(,@'(I love you))

  56. ;;;
  57. `,'(I love you)

  58. ;;;
  59. `(I love you . ,'())

  60. ;;;
  61. (car (list '(I love you)))

  62. ;;;
  63. (cdr '(Hark! I love you))

  64. ;;;
  65. (let ([words '(love you I)])
  66.   (list (car (cdr (cdr words)))
  67.         (car words)
  68.         (car (cdr words))))

  69. ;;;
  70. (let ([words '(love you I)])
  71.   (list (caddr words)
  72.         (car words)
  73.         (cadr words)))

  74. ;;;
  75. (let* ([c '(you)]
  76.        [b (cons 'love c)]
  77.        [a (cons 'I b)])
  78.   a)

  79. ;;;
  80. (let ()
  81.   '(I love you not)
  82.   '(I love you))


  83. ;;;
  84. (vector->list (vector 'I 'love 'you))

  85. ;;;
  86. (vector->list #(I love you))

  87. ;;;
  88. (stream->list (stream 'I 'love 'you))


  89. ;;;
  90. ((lambda args args) 'I 'love 'you)

  91. ;;;
  92. ((lambda (one two . rest) rest) 'You 'believe 'I 'love 'you)

  93. ;;;
  94. ((lambda (a c b) (list a b c)) 'I 'you 'love)

  95. ;;;
  96. (apply (lambda (a c b) (list a b c))
  97.        (list 'I 'you 'love))

  98. ;;;
  99. ((lambda (a b [c 'you]) (list a b c)) 'I 'love)

  100. ;;;
  101. ((lambda (#:foo b #:bar c #:baz a)
  102.    (list a b c))
  103. #:baz 'I #:bar 'you #:foo 'love)

  104. ;;;
  105. ((lambda (a b #:key [c 'me]) (list a b c)) #:key 'you 'I 'love)

  106. ;;;
  107. (let ([f (λ (x)
  108.            (λ (y)
  109.              (λ (z)
  110.                (list x y z))))])
  111.   (((f 'I) 'love) 'you))


  112. ;;;
  113. (let ([f (case-lambda
  114.            [() 'I]
  115.            [(x) 'love]
  116.            [(x y) 'you])])
  117.   (list (f) (f 1) (f 1 2)))

  118.    

  119. ;;;
  120. (append '(I love) '(you))

  121. ;;;
  122. (append '(I) '(love) '(you))

  123. ;;;
  124. (flatten '((I) (love you)))

  125. ;;;
  126. (flatten '((I) (love) (you) ()))

  127. ;;;
  128. (reverse '(you love I))

  129. ;;;
  130. (remove 'cannot '(I cannot love you))

  131. ;;;
  132. (remove-duplicates '(I love love love you))

  133. ;;;
  134. (take '(I love you not) 3)

  135. ;;
  136. (take-right '(I think I love you) 3)
  137.       
  138. ;;;
  139. (drop '(She knows I love you) 2)

  140. ;;;
  141. (drop-right '(I love you no more) 2)



  142. ;;;
  143. (map (lambda (x) (if (eq? x 'hate) 'love x))
  144.      '(I hate you))

  145. ;;;
  146. (map (λ (i) (vector-ref #(love you I) i))
  147.      '(2 0 1))

  148. ;;;
  149. (map (λ (k) (hash-ref #hash(("foo" . I)
  150.                             ("baz" . you)
  151.                             ("bar" . love)) k))
  152.      '("foo" "bar" "baz"))
  153.      
  154. ;;;
  155. (map string->symbol (sort (list "love" "you" "I") string<?))

  156. ;;;
  157. (map string->symbol (string-split "I-love-you" "-"))

  158. ;;;
  159. (flatten (map (λ (a b) (cons a b))
  160.               '(I love you)
  161.               '(() () ())))


  162. ;;;
  163. (filter (lambda (x) (not (eq? x 'cannot)))
  164.         '(I cannot love you))

  165. ;;;
  166. (foldr cons '() '(I love you))

  167. ;;;
  168. (foldl cons '() '(you love I))

  169. ;;;
  170. (for/list ([word #(I love you)])
  171.   word)


  172. ;;;
  173. (cond
  174.   [(even? 3) '(Not me)]
  175.   [(odd?  3) '(I love you)])
  176.   
  177. ;;;
  178. (cond
  179.   [(even? 3) '(Not me)]
  180.   [(odd?  2) '(Nor I)]
  181.   [else      '(I love you)])
  182.   
  183. ;;;
  184. (case 1
  185.   [(a b c) '(Not me)]
  186.   [(3 2 1) '(I love you)])




  187. ;;;
  188. (match #t
  189.   [#f '(Not me)]
  190.   [#t '(I love you)])

  191. ;;;
  192. (match #t
  193.   [#f '(Not me)]
  194.   [_  '(I love you)])

  195. ;;;
  196. (match 'you
  197.   ['me '(Not me)]
  198.   [x   `(I love ,x)])

  199. ;;;
  200. (match '(foo bar)
  201.   ['(foo bar) '(I love you)])

  202. ;;;
  203. (match '(I cannot lift you)
  204.   [(list 'I 'cannot _ c) `(I love ,c)])

  205. ;;;
  206. (match '(2 3 1)
  207.   [(list-no-order 3 1 2)
  208.    '(I love you)])

  209. ;;;
  210. (match '(love you I)
  211.   [(list-no-order 'I 'love foo)
  212.    `(I love ,foo)])

  213. ;;;
  214. (match '(3 . 4)
  215.   [(cons 3 4)
  216.    '(I love you)])

  217. ;;;
  218. (match '(3 love 1)
  219.   [(cons 3 (cons x (cons 1 '())))
  220.    `(I ,x you)])

  221. ;;;
  222. (match '(3 love 1)
  223.   [(cons 3 (cons x (cons 1 '())))
  224.    `(I (unquote x) you)])

  225. ;;;
  226. (match 3
  227.   [(? symbol?) '(Not me)]
  228.   [(? string?) '(Me neither)]
  229.   [(? number?) '(I love you)])

  230. ;;;
  231. (match 3
  232.   [(not 4)   '(I love you)]
  233.   [3         'unreachable])

  234. ;;;
  235. (match '(you love I)
  236.   [`(,c love ,a)
  237.    `(,a love ,c)])

  238. ;;;
  239. (match '(We love you)
  240.   [`(,_ . ,rest)
  241.    `(I . ,rest)])

  242. ;;;
  243. (match '(We love you)
  244.   [`(,_ ,rest ...)
  245.    `(I ,@rest)])

  246. ;;;
  247. (match '(We love you)
  248.   [(list _ rest ...)
  249.    `(I ,@rest)])

  250. ;;;
  251. (match #(1 love 3)
  252.   [(vector (? number?) b (? number?))
  253.    `(I ,b you)])

  254. ;;;
  255. (match #hash((1 . I) (3 . you) (5 . love))
  256.   [(hash-table (1 a) (5 b) (3 c))
  257.    (list a b c)])

  258. ;;;
  259. (match 'you
  260.   [(and x (? symbol?)) `(I love ,x)])

  261. ;;;
  262. (match '100
  263.   [(app (λ (n) (- n 1)) 99)
  264.    '(I love you)])


  265. ;;;
  266. (list 'I
  267.       (call/cc (λ (cc)
  268.                  (error (cc 'love))))
  269.       'you)

  270. ;;;
  271. (with-handlers ([symbol? (lambda (p)
  272.                              `(I ,p you))])
  273.     (raise 'love))


  274. ;;;
  275. (let ([problem (delay (car '()))])
  276.   '(I love you))

  277. ;;;
  278. `(I ,(force (delay 'love)) you)

  279. ;;;
  280. (letrec ([x (delay (list a b c))]
  281.          [a 'I]
  282.          [c 'you]
  283.          [b 'love])
  284.   (force x))
  285.       


  286. ;;;
  287. (let ([word 'know])
  288.   (set! word 'love)
  289.   `(I ,word you))

  290. ;;;
  291. (let ([word-box (box 'know)])
  292.   (set-box! word-box 'love)
  293.   `(I ,(unbox word-box) you))


  294. ;;;
  295. (let-syntax ([un-yoda-list
  296.               (syntax-rules ()
  297.                 [(_ c a b) (list 'a 'b 'c)])])
  298.   (un-yoda-list you I love))

  299. ;;;
  300. (let ((in (open-input-string "I love you")))
  301.   (cons (read in)
  302.         (cons (read in)
  303.               (cons (read in) '()))))

  304. ;;;
  305. (list (touch (future (λ () 'I))) 'love 'you)


  306. ;;;
  307. (let ([a (make-parameter "a")]
  308.       [b (make-parameter "b")]
  309.       [c (make-parameter "c")])
  310.   (parameterize ([a 'i] [b 'love] [c 'you])
  311.     (list (a)
  312.           ((parameterize ([b 'dislike])
  313.              (λ () (b))))
  314.           (c))))
复制代码


回复

使用道具 举报

1

主题

93

帖子

996

积分

专家路上

积分
996
发表于 2016-2-14 16:23:14 | 显示全部楼层
看我名字...这活动为我开设的?
  1. <!doctype html>
  2. <html>
  3. <head>  
  4. <title>Heart</title>
  5. <meta charset="UTF-8">  
  6. </head>  
  7. <body>  
  8. <canvas id="c"></canvas>  
  9. <script>  
  10. var c = document.getElementsByTagName('canvas')[0];
  11. var a = c.getContext('2d');   
  12. </script>
  13.   
  14. <script>
  15. e=[];h=[];O=c.width=innerWidth;Q=c.height=innerHeight;v=32;M=Math;R=M.random;C=M.cos;Y=6.3;for(i=0;i<Y;i+=0.2)h.push([O/2+180*M.pow(M.sin(i),3),Q/2+10*-(15*C(i)-5*C(2*i)-2*C(3*i)-C(4*i))]);
  16. for(i=0;i<v;){x=R()*O;y=R()*Q;H=80*(i/v)+280;S=40*R()+60;B=60*R()+20;f=[];for(k=0;k<v;)f[k++]={x:x,y:y,X:0,Y:0,R:1-k/v+1,S:R()+1,q:~~(R()*v),D:2*(i%2)-1,F:0.2*R()+0.7,f:"hsla("+~~H+","+~~S+"%,"+~~B+"%,.1)"};e[i++]=f}
  17. function _(d){a.fillStyle=d.f;a.beginPath();a.arc(d.x,d.y,d.R,0,Y,1);a.closePath();a.fill()}
  18. setInterval(function(){a.fillStyle="rgba(0,0,0,.2)";a.fillRect(0,0,O,Q);for(i=v;i--;){f=e[i];u=f[0];q=h[u.q];D=u.x-q[0];E=u.y-q[1];G=M.sqrt(D*D+E*E);10>G&&(0.95<R()?u.q=~~(R()*v):(0.99<R()&&(u.D*=-1),u.q+=u.D,u.q%=v,0>u.q&&(u.q+=v)));u.X+=-D/G*u.S;u.Y+=-E/G*u.S;u.x+=u.X;u.y+=u.Y;_(u);u.X*=u.F;u.Y*=u.F;for(k=0;k<v-1;)T=f[k],N=f[++k],N.x-=0.7*(N.x-T.x),N.y-=0.7*(N.y-T.y),_(N)}},25);
  19. </script>
  20. </body>
  21. </html>
复制代码

不解释,存为html,在浏览器中打开,神器
回复

使用道具 举报

51

主题

148

帖子

1803

积分

专家路上

积分
1803
发表于 2016-2-14 16:24:19 | 显示全部楼层
本帖最后由 我们一起闯码头 于 2016-2-14 16:31 编辑

哈哈哈哈,我前两天刚管别人要的,给大家看看。

21.jpg

  1. library(grid)

  2. heart <- function(lcolor)
  3. {
  4. t=seq(0, 2*pi, by=0.1)
  5. x=16*sin(t)^3
  6. y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
  7. a=(x-min(x))/(max(x)-min(x))
  8. b=(y-min(y))/(max(y)-min(y))
  9. grid.lines(a,b,gp=gpar(col=lcolor,lty = "solid",lwd = 3))
  10. }

  11. grid.newpage()
  12. pushViewport(viewport(x=0.1, y=0.1,w=0.2, h=0.2))
  13. grid.newpage()
  14. for (j in 1:30)
  15. {
  16. vp <- viewport(0.5, 0.5, w=0.9, h=0.9, angle=15)
  17. pushViewport(vp)
  18. heart("hotpink")
  19. }
复制代码



回复

使用道具 举报

6

主题

203

帖子

1802

积分

专家路上

积分
1802
发表于 2016-2-14 16:36:39 | 显示全部楼层

别人的代码,一朵逐渐显示出来的玫瑰花,程序员的浪漫谁懂?
163552.png
bb.zip (1008 Bytes, 下载次数: 595)
回复

使用道具 举报

36

主题

80

帖子

1276

积分

专家路上

积分
1276
发表于 2016-2-15 11:02:36 | 显示全部楼层
刚发了一个,大家看看。 2.png 3.png 4.png
http://www.henkuai.com/thread-8484-1-1.html
回复

使用道具 举报

0

主题

2

帖子

82

积分

新人求带

积分
82
发表于 2016-2-16 10:46:30 | 显示全部楼层
响应式 的
1.png
手机访问效果更佳
1.zip (1.08 MB, 下载次数: 905)
回复

使用道具 举报

6

主题

26

帖子

220

积分

新人求带

积分
220
发表于 2016-2-16 15:03:52 | 显示全部楼层
┈━═☆ 发表于 2016-2-16 10:46
响应式 的

手机访问效果更佳

这个不错,看下!!!!!!!
回复

使用道具 举报

0

主题

9

帖子

298

积分

新人求带

积分
298
发表于 2016-2-16 17:03:32 | 显示全部楼层
程序员爱情html5动画网页.zip (29.53 KB, 下载次数: 565)

评分

参与人数 1微币 +5 收起 理由
一肚子坐到地上 + 5 你的代码感动了我们,恭喜您成为了本次活动.

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|小黑屋|很快微信开发者平台 ( 津ICP备16002644号-1 )

GMT+8, 2021-5-7 13:10 , Processed in 0.035503 second(s), 27 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表