数秘術計算機

19

この課題の目標は、文字と数字を含む文字列から1種類の数秘術の数字を計算することです。

  • 入力は、任意の便利な方法（標準入力、引数、分離ファイル）を使用できます。
  • 入力は任意の印刷可能なASCII文字が含まれているが、唯一の英数字（ことA-Z、a-zと0-9）考慮しなければなりません。
  • 出力は、数字の間でなければなりません1し、9または星*がない場合は、文字と...見つかりませ桁（あるいは0入力は任意の数含まれている場合0 と、何もしますが、これは問題ではありません）。

  • 文字の値は次のようにマッピングされます。

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

  • 数秘術の数字は、一つだけ桁が存在するまで、繰り返し、文字列の各値を加算することによって計算されます。サンプルのため13579、Hello, world!、00 0 00、!@#$%^&*();、と3.141592：

    13579 => 1 + 3 + 5 + 7 + 9 = 25 => 2 + 5 = 7
Hello, world! => 8 + 5 + 3 + 3 + 6 + 5 + 6 + 9 + 3 + 4 = 52 => 5 + 2 = 7
00 0 00 => 0 + 0 + 0 + 0 + 0 = 0
!@#$%^&*(); => *
  => *
3.141592 => 3 + 1 + 4 + 1 + 5 + 9 + 2 = 25 => 2 + 5 = 7
3.1415926535897932384 => 
 3 + 1 + 4 + 1 + 5 + 9 + 2 + 6 + 5 + 3 + 5 + 8 + 9 + 7 + 9 + 3 + 2 + 3 + 8 + 4
 = 97 => 9 + 7 = 16 => 1 + 6 = 7

    （これは素晴らしい、このサンプルの大部分は与える7！しかしそれは単なるサンプルです;）

    さらにいくつかのテスト：

    Bob  => 2 + 6 + 2 = 10 => 1 + 0 = 1
Charlie => 3 + 8 + 1 + 9 + 3 + 9 + 5 = 38 => 3 + 8 = 11 => 1 + 1 = 2
Anna => 1 + 5 + 5 + 1 = 12 => 1 + 2 = 3
Fana => 6 + 1 + 5 + 1 = 13 => 1 + 3 = 4
Gregory => 7 + 9 + 5 + 7 + 6 + 9 + 7 = 50 => 5 + 0 = 5
Denis => 4 + 5 + 5 + 9 + 1 = 24 => 2 + 4 = 6
Erik => 5 + 9 + 9 + 2 = 25 => 2 + 5 = 7
Helen => 8 + 5 + 3 + 5 + 5 = 26 => 2 + 6 = 8
Izis => 9 + 8 + 9 + 1 = 27 => 2 + 7 = 9

これはcode-golfであるため、バイト単位の最短回答が優先されます。

言語による最短

コードスニペットを表示

code-golf 
— F.ハウリ
ソース
何か他のものに添加した場合に0がdiseapearます
— F. HAURI
0は関係ありません！関連出力が間にある1と9！
— F.ハウリ
英数字を使用しない例をいくつか追加していただけますか？
— ETHproductions
1
私のようなものを意味し!@#$%^&*()ます。返すべきもの*。
— ETHproductions
マネー分野に関する技術分析の議論でこれを引用することに抵抗するのは非常に困難でした... ;-p
— keshlam

回答:

6

Matlab、121バイト

s=[input('','s'),'*'];while nnz(s)>1;s=num2str(sum(mod([s(48<s&s<58)-4,s(96<s&s<123)+2,s(64<s&s<91)-2],9)+1));end;disp(s)

Matlabは、文字列=（

— フレア
ソース
3
ねえ、少なくともMmaほど冗長ではありません：P
— LegionMammal978
私の+1、私はもっと良くできなかった。ところで、disp声明を出す必要はありますか？
— brainkz
@brainkzたぶん、私は通常、それがためにincude 安全側に
— flawr
3

Mathematica、174 168 163バイト

Catch[#-9Floor[Max[#-1,1]/9]&@If[(a=Tr[Characters@#/.{(b=a_String)?DigitQ:>FromDigits@a,b?LetterQ:>LetterNumber@a~Mod~9,b->0}])<1&&#~StringFreeQ~"0",Throw@"*",a]]&

最初のステップを実行してから、デジタルルートを計算します。

— LegionMammal978
ソース
3

ルビー、97 74文字

n=->s{(t=eval s.tr('a-z9A-Z','1-9'*6).scan(/\d/)*?+)&&t>9?n[t.to_s]:t||?*}

サンプル実行：

2.1.5 :001 > n=->s{(t=eval s.tr('a-z9A-Z','1-9'*6).scan(/\d/)*?+)&&t>9?n[t.to_s]:t||?*}
 => #<Proc:0x00000001b4b3f0@(irb):4 (lambda)> 

2.1.5 :002 > puts ['13579', 'Hello, world!', '00 0 00', '!@#$%^&*();', ' ', '3.141592', '3.1415926535897932384', 'Bob', 'Charlie', 'Anna', 'Izis'].map{|s|'%s : %s'%[n[s],s]}
7 : 13579
7 : Hello, world!
0 : 00 0 00
* : !@#$%^&*();
* :  
7 : 3.141592
7 : 3.1415926535897932384
1 : Bob
2 : Charlie
3 : Anna
9 : Izis
— マナトワーク
ソース
3

Perl、91 89 76 74バイト

-pスイッチの場合は73 + 1

s/[a-z]/(ord($&)%32-1)%9+1/eig;$t="*",s/\d/$t+=$&/eg,$_=$t until/^[*\d]$/

テスト

for test in '13579' 'Hello, world!' '00 0 00' '!@#$%^&*();' ' ' \
    '3.141592' '3.1415926535897932384' \
    Bob Charlie Anna Fana Gregory Denis Erik Helen Izis ;do  
    perl -pe '
      s/[a-z]/(ord($&)%32-1)%9+1/eig;$t="*",s/\d/$t+=$&/eg,$_=$t until/^[*\d]$/
      ' < <(echo -n "$test")
    echo "  $test"
done
7  13579
7  Hello, world!
0  00 0 00
*  !@#$%^&*();
*   
7  3.141592
7  3.1415926535897932384
1  Bob
2  Charlie
3  Anna
4  Fana
5  Gregory
6  Denis
7  Erik
8  Helen
9  Izis

おかげで保存するために私を助けるため@manatwork 2 14個の16 15 17文字を!!

...私は考えました：N % 32 + Y置き換えるかもしれませ( N & 31 ) + Yん！

— F.ハウリ
ソース
1
一致した部分文字列全体をキャプチャする場合、はと$1等しい$&です。そのため、キャプチャを削除して変数名を変更する方が適切です。
— マナトワーク
1
whileのブロックが可能性があります$t="*";s/\d/$t+=$&/eg;$_=$t。
— マナトワーク
1
申し訳ありませんが-p、カウントにスイッチを含める必要があるため、実際には1文字長くなります。
— マナトワーク
1
申し訳ありませんが（今回はもっと申し訳ありませんが）、単語以外の単一の文字入力では失敗します。たとえば、「！」は同じ「！」になります。（ようだここでは、文字列で入力は常に最後の改行を渡されるためので、あなたのテストケースで単一の文字入力を渡すことはありません、仕事に。使用echo -n "$test" | perl -pe '…'私が何を意味するか見るために。）あなたが変更することで、それを解決することができますwhileに条件を!/^[\d*]$/。スコアの損失を減らすために、全体whileを次のように置き換えることができます$t="*",s/\d/$t+=$&/eg,$_=$t until/^[\d*]$/。
— マナトワーク
1
もう1つ改善点があります。の&優先順位はよりも低く+、%高いので&31→ %32を変更すると、その部分式を囲む括弧を削除できます。
— マナトワーク
3

ES6、98バイト

s=>(m=s.match(/[1-9a-z]/gi))?(t=8,m.map(c=>t+=c>'@'?c.charCodeAt()&31:+c),t%9+1):/0/.test(s)?0:'*'

ゴルフをしていない：

function(s) {
    var m = s.match(/[1-9a-z]/gi);
    if (m) {
        var t = 0;
        for (var i = 0; i < m.length; i++) {
            if (m[i] > '@')
                t += m[i].charCodeAt(0) & 31;
            else
                t += parseInt(m[i]);
        }
        return t % 9 || 9;
    }
    return /0/.test(s) ? 0 : "*";
}

短い文字列でのみ機能する94バイトバージョン：

s=>(m=s.match(/[1-9a-z]/gi))?m.map(c=>c>'@'?c.charCodeAt()&31:c).join``%9||9:/0/.test(s)?0:'*'

使用match、mapおよびjoin使用するよりも短いことが判明replace二回：

s=>(m=s.replace(/[^1-9a-z]/gi,''))?m.replace(/[a-z]/gi,c=>c.charCodeAt()&31)%9||9:/0/.test(s)?0:'*'

ここでテストしてください：https : //jsbin.com/zizosayisi/edit?js,console

— ニール
ソース
これは、入力のために動作しません00 0 00
— rink.attendant.6
@ rink.attendant.6ああ、私はただ印刷物["0"]を使っていた0ので、違いを見分けることができなかったので、REPL 。
— ニール
@ rink.attendant.6バージョンよりもはるかに優れています！巧妙なゴルフハックが使用されます。あなたは説明してもらえ> '@'、& 31と|| 9？
— パブロ
1
@Pavlo > '@'は、文字と数字を区別するだけです。& 31文字コードを1..26値に直接マップするので、大文字と小文字の文字コードの違いを無視する便利な方法です。9の倍数に対して0を返しますが、9の非ゼロの倍数に対して繰り返し数字を追加すると9が返さ|| 9れるため、が使用され% 9ます(t + 8) % 9 + 1。
— ニール
言語は、一般的には「JavaScriptの（ES6）」と命名された
— edc65
2

Gema、161文字

*=@n{*}
n:\A=@set{t;};<L1>=@set{t;@add{$t;@add{@mod{@sub{@mod{@char-int{$0};32};1};9};1}}};<D1>=@set{t;@add{$t;$0}};?=;\Z=@cmps{$t;;;\*;@cmpn{$t;9;$t;$t;@n{$t}}}

（再帰ドメイン呼び出しが機能するかどうかを試すためにのみ書かれています。）

サンプル実行：

bash-4.3$ for input in '13579' 'Hello, world!' '00 0 00' '!@#$%^&*();' ' ' '3.141592' '3.1415926535897932384'; do
>     echo -n "'$input' : "
>     gema '*=@n{*};n:\A=@set{t;};<L1>=@set{t;@add{$t;@add{@mod{@sub{@mod{@char-int{$0};32};1};9};1}}};<D1>=@set{t;@add{$t;$0}};?=;\Z=@cmps{$t;;;\*;@cmpn{$t;9;$t;$t;@n{$t}}}' <<< "$input"
>     echo
> done
'13579' : 7
'Hello, world!' : 7
'00 0 00' : 0
'!@#$%^&*();' : *
' ' : *
'3.141592' : 7
'3.1415926535897932384' : 7
— マナトワーク
ソース
1

JavaScript（ES6）、162 159 157バイト

f=_=>{for(_=_.replace(/\W+/g,''),g=$=>''+[...$.toUpperCase()].reduce((p,a)=>isNaN(a)?p+(a.charCodeAt()-64)%9:+a+p,0);1<(l=_.length);_=g(_));return!l?'*':g(_)}

外側の関数で暗黙的なリターンを使用する方法を探しています。

ゴルファーなし+ミニファイ

f = str => {
  str = str.replace(/\W+/g, '');
  recursiveFunc = $ => String([...$.toUpperCase()].reduce(
    (prev, val) => isNaN(val) ? prev + (val.charCodeAt() - 64) % 9 : Number(val) + prev,
    0
  ));
  while (1 < (len = str.length)) {
    str = recursiveFunc(str);
  }
  return len === 0 ? '*' : recursiveFunc(str)
}
  1. すべての非英数字を削除します
  2. 文字列が1文字より長い間、関数を再帰的に呼び出して文字をそれぞれの値に減らします。
    1. 文字列を大文字に変換して、ASCIIコードで簡単に機能するようにします
    2. スプレッド演算子を使用して配列に変換し、アキュムレーターを実行します
    3. グローバルisNaN関数（入力をキャストする）を使用して、数値でないかどうかを確認します
      • そうでない場合は、ASCIIコードとmod 9に変換してそれぞれの値を取得します
      • 数値の場合、キャストします
  3. 長さが0の場合、英数字は存在しません（アスタリスクを返します）。それ以外の場合は、再帰関数の出力を返します。
— rink.attendant.6
ソース
このブレークルール00 0 00、！*ではなく 出力 0
— F.ハウリ
@ F.Hauri修正済み。
— rink.attendant.6
comman演算子を使用すると、明示的な戻り値を回避できます。_=>{expr;return expr}=>_=>(expr,expr)
— Pavlo
@Pavlo私の場合、どのように適用しますか？
— rink.attendant.6
私にとっては機能しません。SyntaxErrorを
— Pavlo
1

Haskell、126バイト

l x=[n|(c,n)<-zip(['0'..'9']++['a'..'z']++'\0':['A'..'Z'])$0:cycle[1..9],c==x]
g[]="*"
g[x]=show x
g x=f$show$sum x
f=g.(l=<<)

使用法：f "Hello, world!"-> "7"。

l整数のリストへの文字のルックアップテーブルです（charが見つかった場合はシングルトンリスト、それ以外の場合は空のリスト）。f引数のすべての文字を検索し、返されたリストのリストを整数の単純なリストにフラット化しg、終了条件（空のリスト（-> *）または単一の整数）をチェックするか、f別のラウンドのリストの合計で呼び出します。

— ニミ
ソース
1

MATL、64バイト

jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']

これは、現在のバージョン（4.0.0）の言語を使用します。

私はそれを短くすることができると感じています...

テストケース

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> 13579
7

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> Hello, world!
7

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> 00 0 00
0

>> matl 
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> !@#$%^&*();
*

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> 3.141592
7

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> 3.1415926535897932384
7

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> Bob
1

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> Charlie
2

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> Anna
3

>> matl
 > jk42ht`YUt'[a-z]'XXY}3+w'[1-9]'XXY}6+h,9X\st9>]w2Y24Y2h!=~?x'*']
 > 
> Izis
9
— ルイス・メンドー
ソース
残念ながら、サンプルをテストできませんでした。最近追加されたテストを含め、テストケース全体を投稿してください（申し訳ありません）。
— F.ハウリ
@ F.Hauriはい、テストするにはMatlabが必要です。申し訳ありませんが、オンラインコンパイラはまだありません。テストケースを追加しました
— ルイスメンドー
1

真剣に、50バイト

,$ù;ú1╤▀+;#pX╗@-@-;Y`'*.`╬X1WX`╜í;s9*@%u`MΣ$;lDWX

六角ダンプ：

2c24973ba331d1df2b3b237058bb402d402d3b5960272a2e7f
60ce5831575860bda13b73392a402575604de4243b6c445758

オンラインで試す

説明：

,$ù                                               Read input, make it a string, lowercase
    ú                                             Push lowercase alphabet
     1╤▀+                                         Prepend base 10 digits.
         ;#pX╗                                    Remove "0" from a copy and stash in reg0
   ;          @-                                  Remove alphanumerics from input copy
                @-                                Remove nonalphanumerics from input
                  ;Y                              Push 1 if string is empty, else 0
                    `'*.`╬                        If top is truthy, output * and halt
                          X                       Discard boolean
                           1                      Push 1 to enter loop
                            WX                 WX Loop while top of stack is truthy
                              `         `M        Map this function over the string
                               ╜                  Push alphanumeric string from reg0
                                í                 Push index of this char in it
                                 ;s9*             Push 9 if found, else -9
                                     @%u          Take index mod previous: this yields the
                                                  correct conversion from the numerology
                                          Σ       Sum the resulting digits.
                                           $      Convert the sum to a string.
                                            ;lD   push 1 less than its length
— キントピア
ソース
@ F.Hauri「オンラインで試す」をクリックします。入力ボックスにテストケースを入力します。
— キントピア
1

純粋なbash、199 194バイト

eval a+={a..z};r="$1";while [ "${r:1}" ];do o=;for ((i=0;i<${#r};i++));do
l=${r:i:1};case $l in [a-zA-Z])d=${a%${l,}*};((o+=$((${#d}%9+1))));;[0-9])
((o+=l));;esac;done;r="$o";done;echo "${o:-*}"

（2番目の改行はスクロールバーを避けるためだけです）

テストルール：

numerology() {
    eval a+={a..z};
    r="$1";
    while [ "${r:1}" ]; do
        o=;
        for ((i=0; i<${#r}; i++))
        do
            l=${r:i:1};
            case $l in 
                [a-zA-Z])
                    d=${a%${l,}*};
                    ((o+=$((${#d}%9+1))))
                ;;
                [0-9])
                    ((o+=l))
                ;;
            esac;
        done;
        r="$o";
    done;
    echo "${o:-*}"
}

for test in '13579' 'Hello, world!' '00 0 00' '!@#$%^&*();' ' ' \
            '3.141592' '3.1415926535897932384'\
            Bob Charlie Anna Fana Gregory Denis Erik Helen Izis ;do
    echo "$(numerology "$test")" $test
done

7 13579
7 Hello, world!
0 00 0 00
* !@#$%^&*();
*
7 3.141592
7 3.1415926535897932384
1 Bob
2 Charlie
3 Anna
4 Fana
5 Gregory
6 Denis
7 Erik
8 Helen
9 Izis
— F.ハウリ
ソース
1

JavaScript（ES6）、78 83

再帰的なソリューション。末尾再帰であるため、変数tおよびrはローカルである必要はありません。

f=x=>(t=r=0,x.replace(/\w/g,d=>t+=1+~-parseInt(d,r=36)%9),t>9?f(''+t):r?t:'*')

説明した

f=x=>(
  t = 0, // set initial value of counter to 0 
  r = 0, // flag to verify that we found at last one alphanumeric chars
  x.replace(/\w/g, d => ( // execute the following for each alphanumeric character
    // t += 1 + ~-parseInt(d,r=36) % 9 explained below
    r = 36, // set flag, could be any nonzero value
    d = parseInt(d,36), // convert to numeric. a..z -> 10..25, case insensitive.
    d = 1 + (d-1) % 9, // this is the arithmetic conversion required (
                       // works also with 0 because the strange implementation of % in javascript for negative numbers
    t = t + d // add to global counter
  ) ), 
  t > 9 // if t > 9 then we found some alphanumeric char, but we must repeat the loop on t
    ? f(''+t) // recursive call, t is numeric and must become a string
    : r // check flag r 
      ? t // if alphanumeric found, return t 
      : '*' // else return '*'
)

テストスニペット

f=x=>(t=r=0,x.replace(/\w/g,d=>t+=1+~-parseInt(d,r=36)%9),t>9?f(''+t):r?t:'*')

console.log=x=>O.textContent+=x+'\n';

;[['13579',7],['Hello, world!',7],['00 0 00',0],['!@#$%^&*();','*'],
['3.141592',7],['3.1415926535897932384',7],
['Bob', 1],['Charlie', 2],['Anna', 3],['Fana', 4],['Gregory', 5],
['Denis', 6],['Erik', 7],['Helen', 8],['Izis', 9]]
.forEach(t=>{
  i=t[0]+''
  k=t[1]
  r=f(i)
  console.log(i+' -> ' + r + (k==r? ' OK':' Fail - expected '+k))
  })
<pre id=O></pre>
スニペットを展開

— edc65
ソース
0

Python、154バイト

def A(S):
 D=lambda x:int(x)if x.isdigit()else (ord(x.lower())-6)%9
 while len(S)>1:S=str(sum([D(c)for c in S if c.isalnum()]))
 print S if int(S)else"*"
— キーランハント
ソース
この失敗テストは00 0 00！
— F.ハウリ
0

Mathematica、133バイト

f[s_]:= ToCharacterCode@ToUpperCase@s-64/.{a_/;17>-a>6:>a+16,b_/;b<1||b>26:>""}//If[Or@@NumberQ/@#,Tr@#/.""->0//.a_:>Tr@IntegerDigits@a,"*"]&

上記のLegionMammal978とは少し異なります。私の関数はすべてを文字コードに変換し、その後、英数字以外のものをフィルターで除外します（空の文字列で置き換えます）。英数字がない場合は*を返し、そうでない場合はデジタルルートを取得します。すべてゼロの文字列の場合に対処する必要がない場合、これは大幅に（約15B）短くなります。C'est la vie。

Mathematicaの魔法は、初心者向けです：foo//.a_:>Tr@IntegerDigits@a繰り返し置換です：afooの数字をその数字の合計で置換し、固定点に達するまで、つまりa置換中の変更を停止するまで、再び置換します。

テスト：

f /@ {"13579", "Hello,world!", "00 0 00", "!@#$%^&*()", "3.141592","3.1415926535897932384"}
     => {7, 7, 0, "*", 7, 7}
f /@ {"Bob", "Charlie", "Anna", "Fana", "Gregory", "Denis", "Erik",  "Helen", "Izis"}
     => {1, 2, 3, 4, 5, 6, 7, 8, 9}
— ハイポユーザー
ソース
残念ながら、サンプルをテストできませんでした。テストケースを投稿してください
— F. Hauri
行く途中です。テストをまとめる際、修正すべきいくつかのタイプミスも見つけました。ありがとう;）
— hYPotenuser
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.