请熟悉Scheme （LISP）编程的高手帮忙# Programming - 葵花宝典
d*o
1 楼
case number是1年多前申请的，当时由于一些原因没有继续申请。
现在申请J1豁免的时候还可以用原来的case number吗？还是重新申请一个号？
现在申请J1豁免的时候还可以用原来的case number吗？还是重新申请一个号？
x*n
2 楼
实在是太漂亮了！二月二十五日，在约了listing agent看了第一眼后，我就决定为自
己纳了这人见人爱的二房。
说起这二房，坐落在新区宽阔的 cul-de-sac 上。坐北朝南，阳光大气，两层4房3浴，
差不多3200尺 with 通天 high ceiling 和8400尺的lot size。 房子建于2006年，买
主最初以47万买入，住了两年半。里外几近如新，几乎无可挑剔。
因为房子是short sale， 经高人指点，我没有另外找buyer agent， 直接和listing
蓝眼睛女agent试着搞。其实，这家伙很有经验，看我诚心想买，问了我的FIC Score等
相关问题以及down payment后，给我交了个底说：
“这房子的房东因为工作变动现在新买了另外一个房子，所以，从下个月起就不付这个
房子的贷款了。银行现在并不知道这房子要short sale， 如果你offer后，我就可以正
式通知银行，同时把你的offer寄给他们”。
说实话，和很多人相同，没买过short sale 的房子。但又和其他所有买short sale房
子的人所担心的一样，虽说是心理早就有所准
己纳了这人见人爱的二房。
说起这二房，坐落在新区宽阔的 cul-de-sac 上。坐北朝南，阳光大气，两层4房3浴，
差不多3200尺 with 通天 high ceiling 和8400尺的lot size。 房子建于2006年，买
主最初以47万买入，住了两年半。里外几近如新，几乎无可挑剔。
因为房子是short sale， 经高人指点，我没有另外找buyer agent， 直接和listing
蓝眼睛女agent试着搞。其实，这家伙很有经验，看我诚心想买，问了我的FIC Score等
相关问题以及down payment后，给我交了个底说：
“这房子的房东因为工作变动现在新买了另外一个房子，所以，从下个月起就不付这个
房子的贷款了。银行现在并不知道这房子要short sale， 如果你offer后，我就可以正
式通知银行，同时把你的offer寄给他们”。
说实话，和很多人相同，没买过short sale 的房子。但又和其他所有买short sale房
子的人所担心的一样，虽说是心理早就有所准
n*d
3 楼
属实吗？
b*a
4 楼
家庭作业，要求用CDR 和 CAR 递归求一个非空数组的Median，巨多限制，具体如下，
请大牛帮忙，多谢。
Write a function median in Scheme that takes a nonempty list L of positive
integers (zero is not considered a positive integer) and other auxiliary
parameters of your choice. The list L is flat (i.e., it does not contain
sublists) and it is sorted in ascending order. If the length of list L is
odd, the function median returns the median element in the list, i. e. , the
middle number that divides the list into two halves of equal length so that
the median is greater or equal to all numbers preceding it, and lower or
equal to all numbers succeeding it. If the length of L is even, the function
median returns 0. It is up to you to choose the auxiliary parameters that
median takes. All auxiliary parameters must be numeric (not lists) and
should have initial values set to zero. For example, if L is ‘(1 2 3) and
you decide to use two additional auxiliary parameters, median should be
called as follows:
(median ‘(1 2 3) 0 0)
If there are three auxiliary parameters, then it must be called:
(median ‘( 1 2 3) 0 0 0 ) and so on.
Examples (for the sake of simplicity the auxiliary parameters are omitted;
in the actual calls they need to be set to zeros and placed right after the
list):
(median ‘(1)) returns 1
(median ‘(1 2)) returns 0
(median ‘(1 2 3)) returns 2
(median ‘( 1 2 3 4) returns 0
(median ‘( 3 3 3)) returns 3
(median ‘(1 4 7 10 11)) returns 7
(median ‘(2 4 4 10 10)) returns 4
(median ‘(10 13 14 15 20 20 40)) returns 15
(median ‘(20 24 25 31 45 56 70 80)) returns 0
(median ‘(15 22 25 30 36 42 48 60 70)) returns 36
The whole solution must be packed in one recursive function median which
must look as follows:
(define median (lambda (
(cond
...
)))
In other words, you have to choose your auxiliary parameters and define a
COND statement.
Inside COND, you can use ONLY the following constructs:
- null?
- car
- cdr
- else
- =
- +
- median
- cond
- if
- user defined names (for your variables)
- integer literals
- parentheses
You cannot use a construct if it is not listed above. The use of built-in
functions is not allowed. You cannot define or call any other function with
the exception of median. In other words, your code must use only one
function, median, which must be defined using the constructs from the list
above.
请大牛帮忙，多谢。
Write a function median in Scheme that takes a nonempty list L of positive
integers (zero is not considered a positive integer) and other auxiliary
parameters of your choice. The list L is flat (i.e., it does not contain
sublists) and it is sorted in ascending order. If the length of list L is
odd, the function median returns the median element in the list, i. e. , the
middle number that divides the list into two halves of equal length so that
the median is greater or equal to all numbers preceding it, and lower or
equal to all numbers succeeding it. If the length of L is even, the function
median returns 0. It is up to you to choose the auxiliary parameters that
median takes. All auxiliary parameters must be numeric (not lists) and
should have initial values set to zero. For example, if L is ‘(1 2 3) and
you decide to use two additional auxiliary parameters, median should be
called as follows:
(median ‘(1 2 3) 0 0)
If there are three auxiliary parameters, then it must be called:
(median ‘( 1 2 3) 0 0 0 ) and so on.
Examples (for the sake of simplicity the auxiliary parameters are omitted;
in the actual calls they need to be set to zeros and placed right after the
list):
(median ‘(1)) returns 1
(median ‘(1 2)) returns 0
(median ‘(1 2 3)) returns 2
(median ‘( 1 2 3 4) returns 0
(median ‘( 3 3 3)) returns 3
(median ‘(1 4 7 10 11)) returns 7
(median ‘(2 4 4 10 10)) returns 4
(median ‘(10 13 14 15 20 20 40)) returns 15
(median ‘(20 24 25 31 45 56 70 80)) returns 0
(median ‘(15 22 25 30 36 42 48 60 70)) returns 36
The whole solution must be packed in one recursive function median which
must look as follows:
(define median (lambda (
(cond
...
)))
In other words, you have to choose your auxiliary parameters and define a
COND statement.
Inside COND, you can use ONLY the following constructs:
- null?
- car
- cdr
- else
- =
- +
- median
- cond
- if
- user defined names (for your variables)
- integer literals
- parentheses
You cannot use a construct if it is not listed above. The use of built-in
functions is not allowed. You cannot define or call any other function with
the exception of median. In other words, your code must use only one
function, median, which must be defined using the constructs from the list
above.
s*u
5 楼
重新申请一个号。
比如某人粗心大意，填表六次，拿了六个case number， 只有付钱的那个号码是有效的
。还有5个号码没有交钱，过一段时间系统自动这五个未交钱的号码作为新号码重新放
回系统给别人使用。
【在 d*****o 的大作中提到】
: case number是1年多前申请的，当时由于一些原因没有继续申请。
: 现在申请J1豁免的时候还可以用原来的case number吗？还是重新申请一个号？
比如某人粗心大意，填表六次，拿了六个case number， 只有付钱的那个号码是有效的
。还有5个号码没有交钱，过一段时间系统自动这五个未交钱的号码作为新号码重新放
回系统给别人使用。
【在 d*****o 的大作中提到】
: case number是1年多前申请的，当时由于一些原因没有继续申请。
: 现在申请J1豁免的时候还可以用原来的case number吗？还是重新申请一个号？
x*n
6 楼
晚上和同学一家三口吃饭回来后，坐在老同学的客厅里边侃边等传真。不知道是太着急
了还是太期待了，那电话就是不响。我忍不住问老同学：“唉，老兄，你这传真是不是
有问题？
他说“没有。不信你用手机打一下试试看”。我一拨，传真机的确没问题。这一来，我
似乎有种不安的感觉。但老同学却很轻松地说：“别着急，是你的跑不了，不是你的等
不来。不行明天再说啦。”
然后，我们又侃了些别的，差不多到了11点半的时候，估计agent 准备的offer来不了
了，就洗洗在同学准备好的客房里睡了。
第二天一早，依然没看见半篇传真的影子，早饭后，我心里七上八下的打电话给agent
，问她是不是昨天晚上传真了准备好的offer，agent很抱歉的在电话里告诉我，她家的
打印机坏了。准备好的offer没办法打印出来，所以没办法传真给我。然后告诉我，现
在会从办公室马上传过来。这时，我一口气才松了下来。
不一会，收到了agent传真给我的offer，我看了看，她加了500块钱的home insurance
在上面，再就是termite report 啥的说是seller 会付。因为这些都是些小钱，我本不
想在这上面纠缠，
了还是太期待了，那电话就是不响。我忍不住问老同学：“唉，老兄，你这传真是不是
有问题？
他说“没有。不信你用手机打一下试试看”。我一拨，传真机的确没问题。这一来，我
似乎有种不安的感觉。但老同学却很轻松地说：“别着急，是你的跑不了，不是你的等
不来。不行明天再说啦。”
然后，我们又侃了些别的，差不多到了11点半的时候，估计agent 准备的offer来不了
了，就洗洗在同学准备好的客房里睡了。
第二天一早，依然没看见半篇传真的影子，早饭后，我心里七上八下的打电话给agent
，问她是不是昨天晚上传真了准备好的offer，agent很抱歉的在电话里告诉我，她家的
打印机坏了。准备好的offer没办法打印出来，所以没办法传真给我。然后告诉我，现
在会从办公室马上传过来。这时，我一口气才松了下来。
不一会，收到了agent传真给我的offer，我看了看，她加了500块钱的home insurance
在上面，再就是termite report 啥的说是seller 会付。因为这些都是些小钱，我本不
想在这上面纠缠，
d*e
7 楼
LOL
【在 n****d 的大作中提到】
: 属实吗？
【在 n****d 的大作中提到】
: 属实吗？
m*n
8 楼
So your problem is you can't call built in functions?
You can call recursively to find the length, and
Find the median during backtrack
the
that
function
【在 b**a 的大作中提到】
: 家庭作业，要求用CDR 和 CAR 递归求一个非空数组的Median，巨多限制，具体如下，
: 请大牛帮忙，多谢。
: Write a function median in Scheme that takes a nonempty list L of positive
: integers (zero is not considered a positive integer) and other auxiliary
: parameters of your choice. The list L is flat (i.e., it does not contain
: sublists) and it is sorted in ascending order. If the length of list L is
: odd, the function median returns the median element in the list, i. e. , the
: middle number that divides the list into two halves of equal length so that
: the median is greater or equal to all numbers preceding it, and lower or
: equal to all numbers succeeding it. If the length of L is even, the function
You can call recursively to find the length, and
Find the median during backtrack
the
that
function
【在 b**a 的大作中提到】
: 家庭作业，要求用CDR 和 CAR 递归求一个非空数组的Median，巨多限制，具体如下，
: 请大牛帮忙，多谢。
: Write a function median in Scheme that takes a nonempty list L of positive
: integers (zero is not considered a positive integer) and other auxiliary
: parameters of your choice. The list L is flat (i.e., it does not contain
: sublists) and it is sorted in ascending order. If the length of list L is
: odd, the function median returns the median element in the list, i. e. , the
: middle number that divides the list into two halves of equal length so that
: the median is greater or equal to all numbers preceding it, and lower or
: equal to all numbers succeeding it. If the length of L is even, the function
x*n
9 楼
（续三）
Offer 寄出去后，心里稍微踏实了一会，但没多久，心里又慢慢地开始了十五个吊桶打
水，七上八下的不安起来。老惦记着一个问题，那就是这房主到底会不会签我给的
offer?
因为在我看来，虽然agent给我说了，她会把收到的offer“一个一个给银行”。但不知
道这房主会不会问agent要收到的所有offer. 因为，大凡WNS在美国买房或者买过房的
人都知道，这agent啥时给房主或者咋样给给多少收到的offer不光学问大，而且结果也
大不一样。 当然，按一般逻辑，房主肯定要问agent收到多少offer或者进一步问，收
到的最高的offer是多少或者全部offer有几多。因为尽管现在看来，这个屋主此时并不
在乎房子到底能卖多少钱，但在他的如意算盘中，short 出去是再好不过的了。因为这
样做，无论如何最后被银行强制foreclosure在信用上能有些赚头。而且从理论上讲，
时下的这个seller，要想及时的将房子买出去，他必须考虑两个问题。
一个是签的这个offer的价格越高，送到银行后同意的机会越大；
二是所接受的offer的buyer 的信用度越好，seller银行同
Offer 寄出去后，心里稍微踏实了一会，但没多久，心里又慢慢地开始了十五个吊桶打
水，七上八下的不安起来。老惦记着一个问题，那就是这房主到底会不会签我给的
offer?
因为在我看来，虽然agent给我说了，她会把收到的offer“一个一个给银行”。但不知
道这房主会不会问agent要收到的所有offer. 因为，大凡WNS在美国买房或者买过房的
人都知道，这agent啥时给房主或者咋样给给多少收到的offer不光学问大，而且结果也
大不一样。 当然，按一般逻辑，房主肯定要问agent收到多少offer或者进一步问，收
到的最高的offer是多少或者全部offer有几多。因为尽管现在看来，这个屋主此时并不
在乎房子到底能卖多少钱，但在他的如意算盘中，short 出去是再好不过的了。因为这
样做，无论如何最后被银行强制foreclosure在信用上能有些赚头。而且从理论上讲，
时下的这个seller，要想及时的将房子买出去，他必须考虑两个问题。
一个是签的这个offer的价格越高，送到银行后同意的机会越大；
二是所接受的offer的buyer 的信用度越好，seller银行同
c*t
10 楼
用来搞什么？
b*a
11 楼
Thanks for your tips. I can not use any built in function except those
provided in the description, CAR and CDR. I can use recursion to find the
length. Could you please tell me how to find the median during the backtrack
? Could you please provide some sample code? Your help would be greatly
appreciated. Homework is due tonight and very anxious now.
provided in the description, CAR and CDR. I can use recursion to find the
length. Could you please tell me how to find the median during the backtrack
? Could you please provide some sample code? Your help would be greatly
appreciated. Homework is due tonight and very anxious now.
x*n
12 楼
(续六)
好不容易熬到了星期一，也就是3月的第二天。在确认我的传真有线，cell有电后，开
始了又一个令人胆战心惊的一日等待。
中午大约吃饭的时候，agent终于打来了电话，她说了两点，一是周末看房子的人很多
，但只offer收到了两个，另外估计这周会有几个offers进来。但据她说，收到的这两
个offer都比我高，但具体是多少她没有讲。不过她暗示我说，似乎这两个offers的
down payment都比我少。她并说她刚和房主讨论了半天，还是感到我比较serious，也
比较reliable. 所以决定接受我的offer.
同时她提醒我，这毕竟是short sale，现在只是房主接受offer，但如果银行最后不同
意这个价格要counter offer，屋主想知道我的心里界限能到多少？
说实话，这个问题我也想过很多次，但确实现在也不好说。因为谁都不知道要多久银行
才能有结果。况且现在的市场明星是下跌的趋势，两个月三个月的情况似乎没人敢说。
于是，我便告诉她，“希望银行不要counter我，但如果到时真的counter了，到时再说
。”
Agent稍微等了一下，马上改口说：“you
好不容易熬到了星期一，也就是3月的第二天。在确认我的传真有线，cell有电后，开
始了又一个令人胆战心惊的一日等待。
中午大约吃饭的时候，agent终于打来了电话，她说了两点，一是周末看房子的人很多
，但只offer收到了两个，另外估计这周会有几个offers进来。但据她说，收到的这两
个offer都比我高，但具体是多少她没有讲。不过她暗示我说，似乎这两个offers的
down payment都比我少。她并说她刚和房主讨论了半天，还是感到我比较serious，也
比较reliable. 所以决定接受我的offer.
同时她提醒我，这毕竟是short sale，现在只是房主接受offer，但如果银行最后不同
意这个价格要counter offer，屋主想知道我的心里界限能到多少？
说实话，这个问题我也想过很多次，但确实现在也不好说。因为谁都不知道要多久银行
才能有结果。况且现在的市场明星是下跌的趋势，两个月三个月的情况似乎没人敢说。
于是，我便告诉她，“希望银行不要counter我，但如果到时真的counter了，到时再说
。”
Agent稍微等了一下，马上改口说：“you
c*e
13 楼
我也忘了吹得什么牛。
幸亏他还帮我记着。
【在 c****t 的大作中提到】
: 用来搞什么？
幸亏他还帮我记着。
【在 c****t 的大作中提到】
: 用来搞什么？
w*p
14 楼
notice that "it is sorted in ascending order" -- you just need one
additional parameter to count where you are in the stepping, something like
additional parameter to count where you are in the stepping, something like
x*n
15 楼
(续七)
下午快下班的时候，agent打来电话，说是seller签好了合同，她已经fax给我了，问我
收到没有？ 我告诉她没有，因为我还没有回到家。
她接着说，明天她会把listing inactive， 并把买卖双方签好的合同连同我的pre-
approval letter 一起fax给银行，估计应当很快就会有结果。不知道是这双份
commission 让她激动还是她和seller谈得很顺利，Agent说这话的时候听起来很快活的
感觉。
可这还没完，她越说越多，而且最让我感兴趣的是，她说 “其实这个房子不象其它
short sale 的房子有几个loan，还属于不同的银行。和一家银行说好了另外一家银行
又说不好，或者把selling price说好了，但银行间的分配又摆不平，因此往往比较麻
烦，拖得很久。但这个房子只有一个loan，一家银行，很单纯，只要follow 银行的要
求准备和并及时提供资料，应当不会拖太久。”
最后她进一步说到，她刚close了一个Wells Fargo 的short sale，对这家银行的
procedure 很familiar. 并和一个assistan
下午快下班的时候，agent打来电话，说是seller签好了合同，她已经fax给我了，问我
收到没有？ 我告诉她没有，因为我还没有回到家。
她接着说，明天她会把listing inactive， 并把买卖双方签好的合同连同我的pre-
approval letter 一起fax给银行，估计应当很快就会有结果。不知道是这双份
commission 让她激动还是她和seller谈得很顺利，Agent说这话的时候听起来很快活的
感觉。
可这还没完，她越说越多，而且最让我感兴趣的是，她说 “其实这个房子不象其它
short sale 的房子有几个loan，还属于不同的银行。和一家银行说好了另外一家银行
又说不好，或者把selling price说好了，但银行间的分配又摆不平，因此往往比较麻
烦，拖得很久。但这个房子只有一个loan，一家银行，很单纯，只要follow 银行的要
求准备和并及时提供资料，应当不会拖太久。”
最后她进一步说到，她刚close了一个Wells Fargo 的short sale，对这家银行的
procedure 很familiar. 并和一个assistan
c*t
16 楼
S&M用的？
【在 c********e 的大作中提到】
: 我也忘了吹得什么牛。
: 幸亏他还帮我记着。
【在 c********e 的大作中提到】
: 我也忘了吹得什么牛。
: 幸亏他还帮我记着。
s*d
17 楼
a nonempty list L of positive integers (zero is not considered a positive
integer)
负值不在原来的list里，所以可以利用负的返回值来传递一点信息吧
integer)
负值不在原来的list里，所以可以利用负的返回值来传递一点信息吧
c*e
18 楼
别瞎说，我说的每一句话，都将被作为呈堂正供，被他保留下来的。
【在 c****t 的大作中提到】
: S&M用的？
【在 c****t 的大作中提到】
: S&M用的？
w*p
19 楼
go idea solnoid, this works with racket:
; m: counting length
; n: counting half of length
; p: n*2
; o: odd or even position
(define median
(lambda (xs m n p o)
(if (null? xs)
(if (= m p)
0
(- 0 n))
(let ((cb (median (cdr xs) (+ m 1)
(if (= o 0) (+ n 1) n)
(if (= o 1) (+ p 2) p)
(if (= o 0) 1 0))))
(if (= (- -1 m) cb)
(car xs)
cb)))))
> (median '(4 5 6) 0 0 0 0)
5
> (median '(4) 0 0 0 0)
4
> (median '(4 5 6 7 8) 0 0 0 0)
6
> (median '(4 5) 0 0 0 0)
0
> (median '(4 5 6 7) 0 0 0 0)
0
> (median '() 0 0 0 0)
0
; m: counting length
; n: counting half of length
; p: n*2
; o: odd or even position
(define median
(lambda (xs m n p o)
(if (null? xs)
(if (= m p)
0
(- 0 n))
(let ((cb (median (cdr xs) (+ m 1)
(if (= o 0) (+ n 1) n)
(if (= o 1) (+ p 2) p)
(if (= o 0) 1 0))))
(if (= (- -1 m) cb)
(car xs)
cb)))))
> (median '(4 5 6) 0 0 0 0)
5
> (median '(4) 0 0 0 0)
4
> (median '(4 5 6 7 8) 0 0 0 0)
6
> (median '(4 5) 0 0 0 0)
0
> (median '(4 5 6 7) 0 0 0 0)
0
> (median '() 0 0 0 0)
0
相关阅读
请教一个占矿游戏的策略问题。 (转载)今晚收获很大Uber干掉传统出租车, Nest干掉HoneyWell和GE再次苦口婆心劝告某些人，第一要谨言慎行，第二别不要脸12306哪来20亿每秒spring boot sample project..神器阿p*hub宣布进军IoT老魏，你做平台的思路有问题太监尿遁了还能满血复活C++/C#的一个设计方案---大伙说谁的方案合理？ASIO TCP传送JSON如何知道包结束？请教express create session的问题Business Process Execution Language BPEL有人在用吗？TIOBE Index for December 2015其实就是两党党争老魏快发小报告phd码工感觉是完全不同的一个档次好虫今天一晚做的那些作死的事情，快赶上过去两年了老魏我再问你应该鼓励创业啊