Golfscript, 88 characters

以mobrule解决方案为基础。 把它缩小到这个时代,是许多工作。 新路线只是清晰的。

~:r;:c 3*):W 6/"    __"*n
[][0]r[3 6]*+{[" ""__/  \"99*+>W<]+.},;
c 2%-1 1if:r%)[-1<]+r%
n*

解释:

~:r;,:c              # read input into rows, columns
3 *):W               # store c*3+1 into W
6 /"    __"*n        # write out "    __" W/6 times, plus newline
[]                   # initialize output array
[0]r[3 6]*+          # create array [0] + [3,6] repeated r times
{                    # for every entry in the input array...
[" ""__/  \"99*+    #   create the magic string
>W<                  #   truncate it between [n:W], where n is the cur entry
]+                   #   store this line in the output array
.},;                 # repeat for every entry in array
                     # now to handle the extra cases:
c 2%-1 1if:r%        # reverse the array if c is odd, do nothing if it s even
)[-1<]               # take the last entry in the array, cut off the last char
+r%                  # put it back on the array, and un-reverse it
n*                   # now join the array with newlines

入境时间过迟,但人数最少。 (我只用这些东西学习书。) 新路线是清晰的。

~:r;:c 2%:o;c 2/:b"    __"*n:e
{e" ""\"if"__/  \"b*o{"__"e{"":e}"/"if}{"":e}if n
"/""  \__/"b*o"  \"""if n}r*
"\__/  "b o+*

C89 - 261 necessary chars

所有白色空间都可以拆除。 我的解决办法是轮流担任理事会......

x,y,W,h,B[999],*a,*b,*c,*d;
main(w){
  for(scanf("%d%d",&h,&w);y<h;y++,*b++ = *c++ = 63)
    for(x=0,
        W=w*2+2-(h==1),
        a=B+y*W*3+y%2,
        b=a+W,
        c=b+W,
        d=c+W;x++<w;)

      *a++ = 60,
      *a++ = *d++ = 15,
      *b++ = *c++ = 63,
      *b++ = *c++ = 0,
      *d++ = 60;

  for(x=W;--x>=0;puts(""))
    for(y=0;y<h*3+1;putchar(B[x+y++*W]+32));
}

F#, 303 chars

let[|x;y|]=System.Console.ReadLine().Split([|   |])
let p=printf
let L s o e=p"%s"s;(for i in 1..int x do p"%s"(if i%2=1 then o else e));p"
"
if int x>1 then L" ""  "" __ ";L" ""__""/  \"
else L" ""__"""
for i in 1..int y-1 do(L"/""  \""__/";L"\""__/""  \")
L"/""  \""__/"
L"""\__/""  "

EDIT

现在,最后还有其他一些答案,我不想分享一个不太清晰的版本:

let [|sx;sy|] = System.Console.ReadLine().Split([|   |])
let x,y = int sx, int sy

let Line n start odd even =
    printf "%s" start
    for i in 1..n do
        printf "%s" (if i%2=1 then odd else even)
    printfn ""

// header
if x > 1 then
    Line x " "   "  "   " __ "
    Line x " "   "__"   "/  \"
else    
    Line x " "   "__"   "    "

// body
for i in 1..y-1 do
    Line x "/"    "  \"   "__/"
    Line x "\"   "__/"    "  \"

// footer
Line x "/"   "  \"    "__/"
Line x ""    "\__/"   "  "

C# 377 果园

Didn t want to disappoint anyone waiting for the "funny" C# answer. Unfortunately, it s not 250 lines though...;)

using System;
class P{
    static void Main(string[] a){
        int i,j,w=Int32.Parse(a[0]),h=Int32.Parse(a[1]);
        string n="
",e="",o=e,l="__",s=" ",r=s+s,b=@"",f="/";
        string[] t={r+r,l,b+l+f,r,l,f+r+b,e,f,b,s};
        for(i=0;i<w;)o+=t[i++%2];
        for(i=0;i<2*h;i++){
            o+=n+(i%2==0?i!=0?b:s:e);
            for(j=0;j<w;)
                o+=t[((j+++i)%2)+4];
            o+=i!=0?t[((w+i)%2)+6]:e;
        }
        o+=n;
        for(i=0;i<w;)o+=t[i++%2+2];
        Console.Write(o);
    }
}

Groovy, #375 chars

Sam logic logic ;

public class FunCode {
        public static void main(a) {
            int i,j,w=Integer.parseInt(a[0]),h=Integer.parseInt(a[1]);
            String n="
",e="",o=e,l="__",s=" ",r=s+s,b="\",f="/";
            def t=[r+r,l,b+l+f,r,l,f+r+b,e,f,b,s];
            for(i=0;i<w;)o+=t[i++%2];
            for(i=0;i<2*h;i++){
                o+=n+(i%2==0?i!=0?b:s:e);
                for(j=0;j<w;)
                    o+=t[((j+++i)%2)+4];
                o+=i!=0?t[((w+i)%2)+6]:e;
            }
            o+=n;
            for(i=0;i<w;)o+=t[i++%2+2]; println(o);
        }
    }

Lua, 227 characters

w,h,s=io.read("*n"),io.read("*n")*2+2," " for i=1,h do b=(i%2>0 and "/  \__" or "\__/  "):rep(w/2+1):sub(1,w*3+1) print(i==1 and b:gsub("[/\]",s) or i==2 and b:gsub("^\",s):gsub("/$",s) or i==h and b:gsub("\$",s) or b) end

<>亮度>208,从指挥线读出宽度和高度。

s,w,h=" ",... h=h*2+2 for i=1,h do b=(i%2>0 and "/  \__" or "\__/  "):rep(w/2+1):sub(1,w*3+1) print(i==1 and b:gsub("[/\]",s) or i==2 and b:gsub("^\",s):gsub("/$",s) or i==h and b:gsub("\$",s) or b) end