41

チャレンジ

入力文字列からウェーブを生成するための文字数による最短のコード。

波は、高い文字を上げる（line-1）、低い文字を下げる（line + 1）ことによって生成されます。等しい文字が同じ行に保持されます（昇格または降格は行われません）。

入力は小文字と数字のみで行われ、文字は数字よりも大きいと見なされます。

テストケース：

Input:
    1234567890qwertyuiopasdfghjklzxcvbnm

Output:
                                 z
                                l x v n
                               k   c b m
                              j
                             h
                            g
                   y   p s f
                  t u o a d
               w r   i
            9 q e
           8 0
          7
         6
        5
       4
      3
     2
    1

Input:
    31415926535897932384626433832795028841971693993751058209749445923078164062862

Output:
                9 9   8 6 6
         9 6   8 7 3 3 4 2 4  8   9   88
    3 4 5 2 5 5     2       33 3 7 5 2  4 9   9 99 7
     1 1     3                  2   0    1 7 6 3  3 5   8              8 6
                                            1        1 5 2 9      9 3 7 1 4 6 8
                                                      0   0 7 9  5 2 0     0 2 6
                                                             4 44               2

コードカウントには、入力/出力（つまり完全なプログラム）が含まれます。

4

33 に答える 33

76

x86 マシン コード (37 バイト)

16 進ダンプ:

6800B807BF8007BE8200B40EAC3C0D741338D8740A720481EF400181C7A000AB86C3EBE8C3

50 行のコンソールを備えた MS-DOS で実行します。入力はコマンド ラインから取得されます。

例えば

wave.com 1234567890qwertyuiopasdfghjklzxcvbnm

バイナリのダウンロードはこちら

更新: jrandomhackerのおかげで 3 バイト削減されました

于 2009-09-03T23:04:52.770 に答える
40

J

インタプリタに入出力を処理させる場合は、54文字。

e=:|:@((#&' '@],[)"0[:(-<./)0,[:+/\[:(}:(>-<)}.)a.i.])

65 stdinから明示的に読み取り、stdoutに書き込みます。

(|:((#&' '@],[)"0[:(-<./)0,[:+/\[:(}:(>-<)}.)a.&i.)~1!:1[3)1!:2[4

   e '1234567890qwertyuiopasdfghjklzxcvbnm'
                             z
                            lxvn
                           kcbm
                          j
                         h
                        g
               ypsf
              tuoad
           wri
        9量的緩和
       8 0
      7
     6
    5
   4
  3
 2
1

   e '31415926535897932384626433832795028841971693993751058209749445923078164062862'
            9 9 8 6 6
     9 6 8 7 3 3 4 2 4 8 9 88
3 4 5 2 5 5 2 33 3 7 5 2 4 9 9 99 7
 1 1 3 2 0 1 7 6 3 3 5 8 8 6
                                        1 1 5 2 9 9 3 7 1 4 6 8
                                                  0 0 7 9 5 2 0 0 2 6
                                                         4 44 2


   NB。ASCIIコードを検索する
   ord=：ai]
   ord'p4ssw0rd'
112 52115115119 48114100

   NB。上がっていく？
   up =：}：<}。
   up ord'p4ssw0rd'
0 1 0 1 0 1 0

   NB。下っていく？
   ダウン=：}：>}。
   ダウンオード'p4ssw0rd'
1 0 0 0 1 0 1

   NB。組み合わせると±1
   アップダウン=：}：（>-<）}。
   updown ord'p4ssw0rd'
1 _1 0 _1 1 _1 1

   NB。0から始めて、部分的な合計でフォローアップします
   sum =：0、+ / \
   合計アップダウンord'p4ssw0rd'
0 1 0 0 _1 0 _1 0

   NB。最小値を減算して、ベースが0のシーケンスを取得します
   fix =：-<./
   合計アップダウンord'p4ssw0rd'を修正
1 2 1 1 0 1 0 1

   NB。便宜上、この関数チェーンに
   d =：[：fix [：sum [：updownord

   NB。文字の前にスペースを入れる
   push=：（＃＆'' @]、[） "0 d
   プッシュ'p4ssw0rd'
 p
  4
 s
 s
w
 0
r
 d

   NB。横向きにする
   |：「p4ssw0rd」を押す
    wr
p ss 0 d
 4

   NB。1つの名前付き関数に結合します… 
   e=：|：@プッシュ
   NB。…そしてすべてをインライン化する
   e=：|：@（（＃＆'' @]、[） "0 [:(-<./)0,[:+/\[:(}:(>-<）}。 ）ai]）
于 2009-09-03T22:02:46.320 に答える
35

入力文字列から「波」を出力するための文字数による最短コード。

Console.WriteLine("入力文字列からの「波」。");

于 2009-09-03T21:39:18.217 に答える
14

Perl（94文字）

もともとbarnabaによる144文字：

chop($_=<>);$l=length;push(@a," "x$l)for(1..$l*2);$l+=(ord $p<=>ord $_),substr($a[$l],$r++,1)=$p=$_ for(split //);/^\s+$/||print "$_\n" for(@a)

クリス・ラッツによる最適化からの121文字：

$_=<>;chop;$a[@a]=" "x$l for 1..($l=length)*2;$l+=$p cmp$_,substr($a[$l],$r++,1)=$p=$_ for split//;/\S/&&print"$_\n"for@a

さらなる最適化からの94文字：

$_=<>;@a=($"x($l=y///c).$/)x(2*$l);s/./substr$a[$l+=$"cmp$&],"@-",1,$"=$&/ge;/\S/&&print for@a

従来のPerlゴルフでは、通常、スイッチの数とコードの長さを追加しますが（ここでは数ストロークで役立ちます）、ここではスイッチのないスタンドアロンプ​​ログラムを使用しています。

于 2009-09-03T22:56:49.547 に答える
12

VT100端末のC（76文字）

これは、FreeSBIEでの私のテストで機能します。

o;main(c){for(;(c=getchar())-10;o=c)printf("\33[1%c%c",c<o?66:c>o?65:71,c);}

ただし、出力を明確に表示するには、次のようなもので実行する必要があります。

clear ; printf "\n\n\n\n\n" ; echo the quick brown fox jumps over the lazy dog | ./a.out ; printf "\n\n\n\n\n"

これは重要ですか？

于 2009-09-04T20:47:20.943 に答える
11

Python（161文字）

v,s="",raw_input()
m=n=len(s)
r=[' ']*n
q=[r[:]for i in range(2*n)]
for j,i in enumerate(s):
 m+=(i<v)-(i>v)
 q[m][j],v=i,i
for i in q:
 if i!=r:print''.join(i)

私はまだそれを圧縮するために多くのことをしていません。今、宇宙船のオペレーターと一緒に何かに移植しています。

于 2009-09-03T21:58:42.947 に答える
10

Ruby：99バイト

r,a,q,i=[],"",99,0
gets.chars{|x|t=r[q+=a<=>x]||=""
a=x
r[q]+=" "*(i-t.size)+x
i+=1}
puts r.compact

非圧縮：

r,a,q,i = [],"",99,0
gets.chars { |x|
  t = r[q+=a<=>x] ||= ""
  a = x
  r[q] += " "*(i-t.size)+x
  i += 1
}
puts r.compact
于 2009-09-04T01:09:57.530 に答える
7

PHP (138 文字)

<?for($lc=$i=$h=0;"\n"!=$c=fgetc(STDIN);$o[$h]=sprintf("%- {$i}s%s",@$o[$h],$lc=$c),$i++)$h+=$c<$lc?-1:$c>$lc;krsort($o);echo join($c,$o);

「読み取り可能な」バージョン:

<?
for (
    $last_ch = $i = $level = 0;
    "\n" != $ch = fgetc(STDIN);
    $out[$level] = sprintf("%- {$i}s%s", @$out[$level], $last_ch = $ch), $i++
    )
    $level += $ch < $last_ch ? -1 : $ch > $last_ch;
krsort($out);
echo join($ch,$out);
于 2009-09-04T08:42:26.813 に答える
6

Python 2.x、現在は 156 文字まで:

s=raw_input()
R=range(len(s))
m=[0]
for i in R[1:]:m+=[m[-1]-cmp(s[i],s[i-1])]
for x in range(min(m),max(m)+1):print''.join(m[i]==x and s[i]or' 'for i in R)
于 2009-09-03T23:38:29.087 に答える
5

C89（151文字）

l[999][999];p;v=500;r;main(c){for(;(c=getchar())>0;
)l[v+=c>p,v-=c<p][++r]=*l[v]=p=c;for(v=999;v--;)for
(c=0;c++<=r;)*l[v]&&putchar(c<=r?32|l[v][c]:10);}
于 2009-09-03T22:14:57.617 に答える
5

Haskell、215 文字。私は Khoth のバージョンがまったく好きではないので、これを投稿しています。適度に機能的なスタイルで書くだけで、非常に短く、IMO により読みやすいプログラムになりました。変数名とスペースを除いて、実際には短くしようとはしていません。配列を破壊的に更新すると、スペースを複製するよりも短くなる可能性があります。

import Char    
import List    
main=getLine>>=(putStr.p)    
p s=unlines$transpose[z++(y:x)|(m,y)<-zip n s,let(x,z)=splitAt m$replicate(maximum n)' ']
    where o=map ord s
    n=scanl(+)0$map signum$zipWith(-)(tail o)o
于 2009-09-04T07:30:50.233 に答える
4

C＃：

using System;
static class A
{ 
    static void Main(string[] a)
    {
        var s=a[0];var r="";
        int i=1,h=0,d=0,c=0,n=s.Length;
        var m=new int[n];
        m[0]=0;
        for(;i<n;i++)
        {
            c+=Math.Sign(s[i]-s[i-1]);
            h=(c>h)?c:h;
            d=(c<d)?c:d;
            m[i]=c;
        }
        for(;h>=d;h--)
        {    
            for (c=0;c<n;c++)
                r+=(m[c]==h)?s[c]:' ';  
             r+="\n";
        }
       Console.Write(r);
    }
}

287圧縮で重量を量ります。

于 2009-09-03T22:01:35.293 に答える
4

Perl、スイッチありで 85 文字、スイッチなしで 96 文字

-F// -an   スイッチで呼び出す   

$q=$"x($n=@F);$,=$/;for(@F){/
/&&print@O;substr($O[$n+=$*cmp$_]|=$q,$i++,1)=$_;$*=$_}

2 番目と 3 番目のスラッシュ文字の間に改行があります。スイッチなしでできること

$q=$"x($n=@C=split//,<>);$,=$/;for(@C){/
/&&print@O;substr($O[$n+=$*cmp$_]|=$q,$i++,1)=$_;$*=$_}
于 2009-09-27T07:02:45.770 に答える
3

Haskell (285 文字):

heightDiff x y | x == y = 0
           | x < y = -1
           | True = 1

heights h (x:y:z)= (x,h):(heights (h+(heightDiff x y) ) (y:z))
heights h [y] = [(y,h)]

makech ((x,h):xs) i = (if i==h then x else ' '):makech xs i
makech [] _ = []

printAll xs = mapM_ (putStrLn . (makech xs)) [(minimum $ map snd xs)..(maximum $ map snd xs)]

main = getLine >>= (printAll . heights 0)

一部の圧縮 (260 文字):

a x y|x==y=0
     |x<y= -1
     |True=1
c h (x:y:z)=(x,h):(c(h+(a x y))(y:z))
c h [y]=[(y,h)]
d ((x,h):xs)i=(if i==h then x else ' '):d xs i
d [] _=[]
p xs = mapM_ (putStrLn .(d xs)) [(minimum $ map snd xs)..(maximum $ map snd xs)]
main = getLine >>= (p . c 0)
于 2009-09-03T22:16:59.283 に答える
3

Perl、88 文字

現在、88 文字に編集されています。

$_=<>;
s/.(?=(.))/($"x40).$&.$"x(39+($1cmp$&))/ge;
@_=/.{80}/g;
{say map{chop||die}@_;redo}

だった：

$_=<>;
s/.(?=(.))/$&.$"x(79+($1cmp$&))/ge;
s/^.{40}|.{80}/$&\n/g;
print $& while /.$/gm || s/.$//gm * /\n/;

97 文字 (スペースを除く)。それほど短くはありませんが、PERL の経験が豊富な人ならさらに短くできるのではないでしょうか。また、バグを見つけます。2 行目は、スペースを使用して、幅 80 のラッピング画面で、水平ではなく垂直に落ちる波を作成します。3 行目は改行を挿入します。最後の行は、X/Y 軸を反転します。

最後の 2 行が、文字列の配列をインターリーブする interleave(s/.{80}/g) のようなものではないかと最初は思っていました。しかし、私が望んでいたその機能はないようです。（それとも図書館にあるの？）

于 2009-09-24T12:35:12.347 に答える
2

F＃、242文字：

let F(s:string)=(fun L->let a=Array.init(L*3)(fun _->Array.create L ' ')in Seq.fold(fun(r,p,c)n->let r=r+sign(int p-int n)in a.[r].[c]<-n;r,n,c+1)(L,s.[0],0)s;for r in a do if Array.exists((<>)' ')r then printfn"%s"(new string(r)))s.Length

読みやすくするために空白を追加すると、

let F(s:string) = 
   (fun L->
    let a = Array.init (L*3) (fun _ -> Array.create L ' ') in 
    Seq.fold (fun (r,p,c) n ->
            let r = r + sign(int p-int n) in 
            a.[r].[c]<-n;
            r, n, c+1)
        (L, s.[0], 0)
        s;
    for r in a do 
        if Array.exists ((<>) ' ') r then 
            printfn "%s" (new string(r))
   ) s.Length
于 2009-09-04T10:48:40.927 に答える
2

C＃での最初の叫び。入力は、最初のコマンドlinie引数として指定する必要があります。

using System;
using C = System.Console;

static class P
{
    static void Main(string[] a)
    {
        var b = a[0];
        var l = b.Length;

        int y = 0, z = 0;
        for (int i = 0; i < l - 1; i++)
        {
            y += Math.Sign(b[i] - b[i + 1]);
            z = Math.Min(y, z);
        }

        y = 0;
        for (int i = 0; i < l - 1; i++)
        {
            C.SetCursorPosition(i, y - z);
            C.Write(b[i]);

            y += Math.Sign(b[i] - b[i + 1]);
        }
    }
}

これにより、からの圧縮で280バイトが生成されます。

using System;using C=System.Console;static class P{static void Main(string[]a){var b=a[0];var l=b.Length;int y=0,z=0;for(int i=0;i<l-1;i++){y+=Math.Sign(b[i]-b[i+1]);z=Math.Min(y,z);}y=0;for(int i=0;i<l-1;i++){C.SetCursorPosition(i,y-z);C.Write(b[i]);y+=Math.Sign(b[i]-b[i+1]);}}}

別のアプローチで2番目を試みます。

using System;
using System.Collections.Generic;

static class P
{
    static void Main(string[] a)
    {
        var b = a[0] + "$";
        var l = new List<string>();    
        var y = -1;

        for (int i = 0; i < b.Length - 1; i++)
        {
            if ((y == -1) || (y == l.Count))
            {
                y = y < 0 ? 0 : y;
                l.Insert(y, b.Substring(i, 1).PadLeft(i + 1));
            }
            else
            {
                l[y] = l[y].PadRight(i) + b[i];
            }
            y += Math.Sign(b[i] - b[i + 1]);
        }

        foreach (var q in l) Console.WriteLine(q);
    }
}

ループは、try/catchブロックを使用するようにさらに書き直すことができます。

for (int i = 0; i < b.Length - 1; i++)
{
    try
    {
        l[y] = l[y].PadRight(i) + b[i];
    }
    catch
    {
        y = y < 0 ? 0 : y;
        l.Insert(y, b.Substring(i, 1).PadLeft(i + 1));
    }

    y += Math.Sign(b[i] - b[i + 1]);
}

これにより、わずかに変更および圧縮された321バイトが生成されます。これは、最初の試行よりも少し多くなりますが、はるかに堅牢です。

using System;static class P{static void Main(string[]a){var b=a[0]+"$";var r=new System.Collections.Generic.List<string>();var y=-1;for(int i=0;i<b.Length-1;i++){try{r[y]=r[y].PadRight(i)+b[i];}catch{y=y<0?0:y;r.Insert(y,b[i].ToString().PadLeft(i+1));}y+=Math.Sign(b[i]-b[i+1]);}foreach(var l in r)Console.WriteLine(l);}}

于 2009-09-03T22:02:52.093 に答える
2

パワーシェル

誰かがそれを編集したいのであれば、これははるかに少ないコードで実行できると確信しています。読めるようにしておきます。

$v = (Read-Host).ToCharArray()
$r = @(0)
for($i = 1; $i -lt $v.length; $i++) {
    $p = $i - 1
    $r += $r[$p] + [System.Math]::Sign($v[$i] - $v[$p])
    $t = [System.Math]::Max($t, $r[$i])
    $b = [System.Math]::Min($b, $r[$i])
}
for($i = $t; $i -ge $b; $i--) {
    for($x = 0; $x -lt $r.length; $x ++) {
        if($r[$x] -eq $i) {
            $o += $v[$x]
        }
        else {
            $o += " "
        }
    }
    $o += "`n"
}
$o
于 2009-09-04T05:28:46.970 に答える
1

Ruby：109バイト、改行文字を数えます!!

s=gets
r,a,q,i=[],s[0,1],99,0
s.chars{|x|q+=a<=>x
a=x
t=r[q]||=""
r[q]+=" "*(i-t.size)+x
i+=1}
puts r.compact

非圧縮：

s = gets
r,a,q,i = [],s[0,1],99,0
s.chars { |x|
  q += a<=>x
  a  = x
  t = r[q] ||= ""
  r[q]  += " "*(i-t.size)+x
  i += 1
}
puts r.compact
于 2009-09-07T12:47:23.200 に答える
1

ASL：73

args1[,;{ch},1_]@1]o o>:><-0 0a:/+,/&-;{()@:'{" "`}}@;{};;{(){`}#`}" ":|P

JソリューションをASLに変換しました。

于 2011-02-05T16:00:50.953 に答える
1

C＃（564文字のコード）

using System;
class Program {
    static void Main(string[] args) {
        var input = args[0];
        int min = 0, max = 0;
        var heights = new int[input.Length];

        for (var i = 1; i < input.Length; i++) {
            heights[i] = heights[i-1] + (input[i] > input[i-1] ? 1 : (input[i] < input[i-1] ? -1 : 0));
            min = Math.Min(min, heights[i]);
            max = Math.Max(max, heights[i]);
        }

        for (var row = max; row >= min; row--, Console.WriteLine())
            for (var col = 0; col < input.Length; col++)
                Console.Write(heights[col] == row ? input[col] : ' ');
    }
}

圧縮:(324文字のコード）

using System;class A{static void Main(string[] args){var I=args[0];int M=0,X=0;var H=new int[I.Length];for(var i=1;i<I.Length;i++){H[i]=H[i-1]+(I[i]>I[i-1]?1:(I[i]<I[i-1]?-1:0));M=Math.Min(M,H[i]);X=Math.Max(X,H[i]);}for(var r=X;r>=M;r--,Console.WriteLine())for(var c=0;c<I.Length;c++)Console.Write(H[c]==r?I[c]:' ');}}

コメントからのトリックの使用（283文字）：

using System;class A{static void Main(string[] a){var I=a[0];int M=0,X=0,i=1,r,h,c=0,l=I.Length;var H=new int[l];for(;i<l;i++){h=H[i-1]+(I[i]>I[i-1]?1:(I[i]<I[i-1]?-1:0));H[i]=h;M=M<h?M:h;X=x>h?X:h;}for(r=X;r>=M;r--,Console.Write('\n'))for(;c<l;c++)Console.Write(H[c]==r?I[c]:' ');}}
于 2009-09-03T22:08:44.717 に答える
1

Perl 5.10

159文字、最も「ユーザーフレンドリー」なバージョン：

perl -nE'chop;@l=split//;$l{$_}=$l{$_-1}+($l[$_]cmp$l[$_-1])for 0..$#l;%e=();for$x(sort{$b<=>$a}grep{!$e{$_}++}values%l){say map{$l{$_}==$x?$l[$_]:" "}0..$#l}'

次のバージョンは153文字ですが、入力できるのは1行のみです。複数入力するには、プログラムを再起動する必要があります。これが許可されるかどうかについてのルールは明確ではありませんが、とにかく両方のバージョンを投稿するのが最善だと思いました。

perl -nE'chop;@l=split//;$l{$_}=$l{$_-1}+($l[$_]cmp$l[$_-1])for 0..$#l;for$x(sort{$b<=>$a}grep{!$e{$_}++}values%l){say map{$l{$_}==$x?$l[$_]:" "}0..$#l}'

これが149文字のバージョンです。これはシェルの1ライナーではなくスクリプトであり、1行の入力に対してのみ機能しますが、最初の行以降は入力を受け入れません。これはおそらく良いことです。 ：

$_=<>;chop;@l=split//;$l{$_}=$l{$_-1}+($l[$_]cmp$l[$_-1])for 0..$#l;for$x(sort{$b<=>$a}grep{!$e{$_}++}values%l){say map{$l{$_}==$x?$l[$_]:" "}0..$#l}

これらはいずれも、すでに投稿されているPerlソリューションほど短いものではありませんが、PythonやRubyに勝っているようです。その上、それを行うには複数の方法があります。

于 2009-09-04T01:23:51.990 に答える
1

Golfscript-65文字

' ': :c;1/:a,.+,{:N;a,a{:@c<+c@:c<-.N=[ c]\=}%.[n+'']\$-1= ==\;}%

行ごとに波を生成します

{:N;a,a{:@c<+c@:c<-.N=[ c]\=}%

空白行を除外します

.[n+'']\$-1= ==\
于 2009-11-03T05:57:49.073 に答える
1

PHP: 108 文字

<?while(-1<$a=fgetc(STDIN)){$d+=$a<$b^-($a>$b);$r[$d].=' ';$r[$d][$k++]=$b=$a;}ksort($r);echo join("\n",$r);

読み取り可能なバージョン:

<?
while(-1<$a=fgetc(STDIN)){
  $d+=$a<$b^-($a>$b);
  $r[$d].=' ';
  $r[$d][$k++]=$b=$a;
}
ksort($r);
echo join("\n",$r);
于 2009-10-26T17:59:10.953 に答える
1

Groovy (195 文字)

テスト

s="1234567890qwertyuiopasdfghjklzxcvbnm"

短い

=(s=~/./).collect{(char)it}
e=' ';x=0;l=[];u=[]
w.eachWithIndex({it,n->
if(l.size()>x){l[x]+=e*(n-u[x]-1)+it;u[x]=n}else{l+=e*n+it;u+=n}
if(w[n+1]>it)x++else x--;})
l.reverse().each({println it})
于 2009-10-24T21:26:06.433 に答える
1

C# 545 バイト非圧縮

using System;
using System.Linq;
class Program{
    static void Main(string[] b){
        var s = b[0];
        var t = new System.Collections.Generic.Dictionary<int, string>();
        int y=0, p=0;
        for (int i = 0; i < s.Length; i++){
            y += Math.Sign(s[i] - p);
            p = s[i];        
            if (!t.ContainsKey(y))
                t.Add(y, "");
            t[y] = t[y].PadRight(i) + s[i];
        }
        foreach (var v in t.OrderBy(a => -a.Key))
            Console.WriteLine(v.Value);
    }
}
于 2009-09-04T12:44:01.270 に答える
1

特に圧縮されていない Java ソリューション (現在は stdin から読み取るように変更されています)。

public class W
{ 
 public static void main(String[] x)
 {
  String s = new java.util.Scanner(System.in).nextLine();
  int i,j;
  int t = s.length();
  char[] b = s.toCharArray();
  char[][] p = new char[2*t][t];
  int q = t;
  char v = b[0];
  for (i=0; i<2*t; i++)
  {
   for (j=0; j<t; j++)
   {
    p[i][j] = ' ';
   }
  }
  p[q][0] = v;
  String z = new String(p[0]);
  for (i=1; i<t; i++)
  {
   char c = b[i];
   int d = (c == v) ? 0 : (c > v ? -1 : 1);
   q += d;
   p[q][i] = c;
   v = c;
  }
  for (i=0; i<2*t; i++)
  {
   String n = new String(p[i]);
   if (!n.equals(z))
   {
    System.out.println(n);
   }
  }
 } 
}
于 2009-09-03T21:50:47.003 に答える
1

F#、235 文字

まったく異なる戦略により、他のソリューションと比較して数文字節約できました。

let F(s:string)=(fun L->let _,_,h=Seq.fold(fun(p,h,l)n->let r=h-sign(int n-int p)in n,r,r::l)(s.[0],0,[0])s in for r in Seq.min h..Seq.max h do printfn"%s"(new string(Array.init L (fun c->if r=h.[L-1-c]then s.[c]else ' '))))s.Length

空白あり:

let F(s:string) = 
   (fun L->
    let _,_,h = Seq.fold (fun (p,h,l) n ->
        let r = h - sign(int n-int p) in 
        n,r,r::l) (s.[0],0,[0]) s in 
    for r in Seq.min h..Seq.max h do 
        printfn "%s" (new string(Array.init L (fun c -> 
            if r=h.[L-1-c] then s.[c] else ' ')))
   ) s.Length
于 2009-09-04T12:17:37.503 に答える
0

XQuery

(257 バイト)

declare variable$i external;let$c:=string-to-codepoints($i),$h:= for$x at$p in$c
return sum(for$x in 1 to$p let$d:=$c[$x]-$c[$x -1]return(-1[$d>0],1[$d<0]))return
codepoints-to-string(for$p in min($h)to max($h),$x at$q
in($c,10)return(32[$h[$q]!=$p],$x)[1])

XQuery は純粋に宣言型であるため、入力が外部変数に渡されるように偽装する必要がありました。これを XQSharp で実行するコマンド ラインは次のとおりです。

xquery wave.xq !method=text i='1234567890qwertyuiopasdfghjklzxcvbnm'

文字列がコンテキスト アイテムとして渡された場合、これをさらに減らすことができますが、コンテキスト アイテムをノード以外の値に設定することは、すべての XQuery 実装でサポートされているわけではありません (XQSharp コマンド ライン ツールでもサポートされていません)。

let$c:=string-to-codepoints(.),$h:= for$x at$p in$c return sum(for$x in 1 to$p
let$d:=$c[$x]-$c[$x -1]return(-1[$d>0],1[$d<0]))return codepoints-to-string(for$p
in min($h)to max($h),$x at$q in($c,10)return(32[$h[$q]!=$p],$x)[1])

わずか 228 バイトです。

于 2009-09-03T23:45:47.383 に答える
0

ハスケル、170

main=getLine>>=putStr.p
p s=unlines[[if m==i then c else ' '|(m,c)<-zip n s]|i<-[minimum n..maximum n]]
 where o=map fromEnum s;n=scanl(+)0$map signum$zipWith(-)o$tail o

最後の 2 行を結合する場合は 168。Greg M のソリューションに基づく。

于 2012-05-11T18:55:46.973 に答える
0

Scala (2.8 より前): インライン化され、空白が削除された場合、275 文字。

object W {
  def main(r:Array[String]){
    var(a,l,i,c,b)=(r(0),r(0).size,0,0,99999)
    val h=a.drop(1)./:(List(0)){(x,y)=>c=if(a(i)<y)c-1 else if(a(i)>y)c+1 else c;b=b min c;i+=1;c::x}.reverse
    val z=((" "*l+"\n")*l).toArray
    a./:(0){(x,y)=>z((h(x)-b)*(l+1)+x)=y;x+1}
    print(z.mkString)
  }
}
于 2009-09-09T21:22:58.320 に答える
0

Clojure バージョン:


(def a "1234567890qwertyuiopasdfghjklzxcvbnm")
(defn sign [x] (cond (pos? x) 1, (neg? x) -1, :else 0))
(def cmp (cons 0 (map (comp sign compare) a (rest a))))
(def depths (loop [depth 0, remaining cmp, built []]
              (if (first remaining)
                (recur (+ depth (first remaining)) (rest remaining) (conj built depth))
                built)))
(let [top (apply min depths), bottom (apply max depths)]
  (doseq [line (range top (inc bottom)), col (range 0 (count a))]
    (if (= line (depths col))
      (print (get a col))
      (print \space))
    (if (= col (dec (count a)))
      (print \newline))))
于 2009-09-08T06:48:45.033 に答える