切换风格

加州 简约米色 星空 绿野仙踪 花卉 城市 简约黑色 白云 薰衣草 晚霞 粉色心情 伦敦 雪山 龙珠

回复 9

3

主题

5

帖子

16

积分

新手上路

Rank: 1

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


654035579003875278.jpg (61.28 KB, 下载次数: 2114)
下载附件保存到相册
2016-2-14 15:31 上传

既然是这样,那就让我将单身革命进行到底,看活动!
大家可以把自己收藏的情人节或者用于
[color=]表白
的代码贡献出来(最好但不限于H5),有配图最好,要求能够运行起来。活动结束后选择一位最佳贡献者,奖励200微币,并发放一枚“五道杠”

wdg.gif (5 KB, 下载次数: 91)
下载附件保存到相册
2016-2-14 15:38 上传
勋章!活动截止时间:2016.2.16
最后附上程序员之歌一首:
写字楼里写字间,写字间里程序员;
程序人员写程序,又拿程序换酒钱;
酒醒只在网上坐,酒醉还来网下眠;
酒醉酒醒日复日,网上网下年复年;
但愿老死电脑间,不愿鞠躬老板前;
奔驰宝马贵者趣,公交自行程序员;
别人笑我忒疯癫,我笑自己命太贱;
不见满街漂亮妹,哪个归得程序员。
大家快快行动起来吧,不管表白代码是你的还是网上看到的,都可以分享出来。帮帮那些不会写代码的单身狗吧!
回复

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2016-2-14 16:23:14 | 显示全部楼层
看我名字...这活动为我开设的?Heart 复制代码不解释,存为html,在浏览器中打开,神器
回复 支持 反对

使用道具 举报

0

主题

1

帖子

8

积分

新手上路

Rank: 1

积分
8
发表于 2016-2-14 16:16:43 | 显示全部楼层
99669999996669999996699666699666999966699666699996999999996999999996996666996699669966996666999966999999999999999669966669969966669969966669999666699999999999966666999966699666699699666699996666669999999966666666996666996666996996666999966666666999966666666669966666996699669966669999666666666996666666666699666666999966669999996ctrl+f,然后,输入9,这样算不算?

回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2016-2-16 10:46:30 | 显示全部楼层
响应式 的

1.png (939.84 KB, 下载次数: 58)
下载附件保存到相册
2016-2-16 10:45 上传
手机访问效果更佳

1.zip(1.08 MB, 下载次数: 456)2016-2-16 10:46 上传点击文件名下载附件cede
回复 支持 反对

使用道具 举报

0

主题

2

帖子

6

积分

新手上路

Rank: 1

积分
6
发表于 2016-2-14 16:20:40 | 显示全部楼层
来一个长的吧,99个我爱你的写法。;;;'(I love you);;;(quote (I love you));;;(list 'I 'love 'you);;;(list (quote I) (quote love) (quote you));;;(cons 'I (cons 'love (cons 'you '())));;;(cons 'I (cons 'love (list 'you)));;;(cons 'I (list 'love 'you));;;(cons 'I '(love you));;;'(I love . (you));;;'(I . (love . (you)));;;'(I . (love . (you . ())));;;'(I . (love you));;;`(I love you);;;`(I ,'love you);;(quasiquote (I ,'loveyou));;(quasiquote (I (unquote 'love) you));;;`(I ,`love you);;;(let ([verb 'love])`(I ,verb you));;;`(I ,(string->symbol "love") you);;;`(I ,(string->symbol (list->string '(#\l #\o #\v #\e))) you);;;`(I love . (you));;;`(I love . ,(list 'you));;;`(I love ,@'(you));;;`(I love (unquote-splicing '(you)));;;`(I ,@(list 'love 'you));;;`(,@(list 'I 'love) you);;;`(,@'(I love you));;;`,'(I love you);;;`(I love you . ,'());;;(car (list '(I love you)));;;(cdr '(Hark! I love you));;;(let ([words '(love you I)])(list (car (cdr (cdr words)))  (car words)  (car (cdr words))));;;(let ([words '(love you I)])(list (caddr words)  (car words)  (cadr words)));;;(let* ([c '(you)]   [b (cons 'love c)]   [a (cons 'I b)])a);;;(let ()'(I love you not)'(I love you));;;(vector->list (vector 'I 'love 'you));;;(vector->list #(I love you));;;(stream->list (stream 'I 'love 'you));;;((lambda args args) 'I 'love 'you);;;((lambda (one two . rest) rest) 'You 'believe 'I 'love 'you);;;((lambda (a c b) (list a b c)) 'I 'you 'love);;;(apply (lambda (a c b) (list a b c))    (list 'I 'you 'love));;;((lambda (a b [c 'you]) (list a b c)) 'I 'love);;;((lambda (#:foo b #:bar c #:baz a) (list a b c)) #:baz 'I #:bar 'you #:foo 'love);;;((lambda (a b #:key [c 'me]) (list a b c)) #:key 'you 'I 'love);;;(let ([f (λ (x)   (λ (y)     (λ (z)     (list x y z))))])(((f 'I) 'love) 'you));;;(let ([f (case-lambda    [() 'I]   [(x) 'love]   [(x y) 'you])])(list (f) (f 1) (f 1 2)))  ;;;(append '(I love) '(you));;;(append '(I) '(love) '(you));;;(flatten '((I) (love you)));;;(flatten '((I) (love) (you) ()));;;(reverse '(you love I));;;(remove 'cannot '(I cannot love you));;;(remove-duplicates '(I love love love you));;;(take '(I love you not) 3);;(take-right '(I think I love you) 3)  ;;;(drop '(She knows I love you) 2);;;(drop-right '(I love you no more) 2);;;(map (lambda (x) (if (eq? x 'hate) 'love x)) '(I hate you));;;(map (λ (i) (vector-ref #(love you I) i)) '(2 0 1));;;(map (λ (k) (hash-ref #hash(("foo" . I)           ("baz" . you)          ("bar" . love)) k)) '("foo" "bar" "baz")) ;;;(map string->symbol (sort (list "love" "you" "I") stringsymbol (string-split "I-love-you" "-"));;;(flatten (map (λ (a b) (cons a b))    '(I love you)    '(() () ())));;;(filter (lambda (x) (not (eq? x 'cannot)))   '(I cannot love you));;;(foldr cons '() '(I love you));;;(foldl cons '() '(you love I));;;(for/list ([word #(I love you)])word);;;(cond[(even? 3) '(Not me)][(odd?3) '(I love you)]);;;(cond[(even? 3) '(Not me)][(odd?2) '(Nor I)][else  '(I love you)]);;;(case 1[(a b c) '(Not me)][(3 2 1) '(I love you)]);;;(match #t[#f '(Not me)][#t '(I love you)]);;;(match #t[#f '(Not me)][_'(I love you)]);;;(match 'you['me '(Not me)][x `(I love ,x)]);;;(match '(foo bar)['(foo bar) '(I love you)]);;;(match '(I cannot lift you)[(list 'I 'cannot _ c) `(I love ,c)]);;;(match '(2 3 1)[(list-no-order 3 1 2) '(I love you)]);;;(match '(love you I)[(list-no-order 'I 'love foo) `(I love ,foo)]);;;(match '(3 . 4)[(cons 3 4) '(I love you)]);;;(match '(3 love 1)[(cons 3 (cons x (cons 1 '()))) `(I ,x you)]);;;(match '(3 love 1)[(cons 3 (cons x (cons 1 '()))) `(I (unquote x) you)]);;;(match 3[(? symbol?) '(Not me)][(? string?) '(Me neither)][(? number?) '(I love you)]);;;(match 3[(not 4) '(I love you)][3   'unreachable]);;;(match '(you love I)[`(,c love ,a) `(,a love ,c)]);;;(match '(We love you)[`(,_ . ,rest) `(I . ,rest)]);;;(match '(We love you)[`(,_ ,rest ...) `(I ,@rest)]);;;(match '(We love you)[(list _ rest ...) `(I ,@rest)]);;;(match #(1 love 3)[(vector (? number?) b (? number?)) `(I ,b you)]);;;(match #hash((1 . I) (3 . you) (5 . love))[(hash-table (1 a) (5 b) (3 c)) (list a b c)]);;;(match 'you[(and x (? symbol?)) `(I love ,x)]);;;(match '100[(app (λ (n) (- n 1)) 99) '(I love you)]);;;(list 'I   (call/cc (λ (cc)     (error (cc 'love))))  'you);;;(with-handlers ([symbol? (lambda (p)         `(I ,p you))])  (raise 'love));;;(let ([problem (delay (car '()))])'(I love you));;;`(I ,(force (delay 'love)) you) ;;;(letrec ([x (delay (list a b c))]   [a 'I]   [c 'you]   [b 'love])(force x))   ;;;(let ([word 'know])(set! word 'love)`(I ,word you));;;(let ([word-box (box 'know)])(set-box! word-box 'love)`(I ,(unbox word-box) you));;;(let-syntax ([un-yoda-list    (syntax-rules ()      [(_ c a b) (list 'a 'b 'c)])])(un-yoda-list you I love));;;(let ((in (open-input-string "I love you")))(cons (read in)  (cons (read in)    (cons (read in) '()))));;;(list (touch (future (λ () 'I))) 'love 'you);;;(let ([a (make-parameter "a")]   [b (make-parameter "b")]  [c (make-parameter "c")])(parameterize ([a 'i] [b 'love] [c 'you])  (list (a)     ((parameterize ([b 'dislike])     (λ () (b))))    (c))))复制代码
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2016-2-14 16:24:19 | 显示全部楼层
哈哈哈哈,我前两天刚管别人要的,给大家看看。

21.jpg (354.35 KB, 下载次数: 74)
下载附件保存到相册
2016-2-14 16:31 上传
library(grid)heart 复制代码
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2016-2-14 16:36:39 | 显示全部楼层
别人的代码,一朵逐渐显示出来的玫瑰花,程序员的浪漫谁懂?

163552.png (107.99 KB, 下载次数: 65)
下载附件保存到相册
2016-2-14 16:35 上传


bb.zip(1008 Bytes, 下载次数: 325)2016-2-14 16:36 上传点击文件名下载附件
回复 支持 反对

使用道具 举报

0

主题

2

帖子

6

积分

新手上路

Rank: 1

积分
6
发表于 2016-2-15 11:02:36 | 显示全部楼层
刚发了一个,大家看看。

2.png (271.37 KB, 下载次数: 52)
下载附件保存到相册
2016-2-15 11:02 上传


3.png (214.17 KB, 下载次数: 52)
下载附件保存到相册
2016-2-15 11:02 上传


4.png (168.14 KB, 下载次数: 56)
下载附件保存到相册
2016-2-15 11:02 上传
http://www.weixin.com/thread-8484-1-1.html
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2016-2-16 15:03:52 | 显示全部楼层

┈━═☆ 发表于 2016-2-16 10:46
响应式 的手机访问效果更佳
这个不错,看下!!!!!!!
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2016-2-16 10:46:00 | 显示全部楼层


程序员爱情html5动画网页.zip(29.53 KB, 下载次数: 266)2016-2-16 17:02 上传点击文件名下载附件


QQ图片20160216170051.png (188.27 KB, 下载次数: 58)
下载附件保存到相册
2016-2-16 17:03 上传
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|葫芦娃微信小程序资源网 ( ICP证:鲁ICP备14008133号-3 

GMT+8, 2019-1-20 08:53 , Processed in 0.038855 second(s), 26 queries .

Powered by Discuz!ģ X3.2

© 2001-2013

返回顶部