เป้าหมายของการท้าทายนี้คือการคำนวณหนึ่งชนิดของตัวเลขหลักจากสตริงที่มีตัวอักษรและตัวเลข

• อินพุตอาจใช้วิธีการที่สะดวก (อินพุตมาตรฐานอาร์กิวเมนต์ไฟล์แยก)
• การป้อนข้อมูลที่อาจจะมีตัวอักษรใด 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
  

นี่คือรหัสกอล์ฟดังนั้นคำตอบที่สั้นที่สุดในหน่วยไบต์ชนะ

สั้นที่สุดตามภาษา

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="language-list"> <h2>Shortest Solution by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr> </thead> <tbody id="languages"> </tbody> </table> </div> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr> </thead> <tbody id="answers"> </tbody> </table> </div> <table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table><script>var QUESTION_ID = document.referrer.split("/")[4]; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 0; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "//api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "//api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang.toLowerCase(42), user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

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 ไม่ได้ถูกสร้างขึ้นมาเพื่อ strings = (

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]]&

ทำตามขั้นตอนแรกแล้วคำนวณรากดิจิตอล

Ruby, 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

Perl, 91 89 76 74 ไบต์

73 + 1 สำหรับ-pสวิตช์

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 !

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:'*'

Ungolfed:

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

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

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(_)}

ยังคงพยายามหาวิธีใช้การส่งคืนโดยนัยในฟังก์ชันภายนอก

Ungolfed + ไม่ระบุชื่อ

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 จะไม่มีตัวอักษรและตัวเลขปรากฏ (ส่งคืนเครื่องหมายดอกจัน) มิฉะนั้นส่งคืนเอาต์พุตของฟังก์ชันเรียกซ้ำ

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เป็นตารางการค้นหาสำหรับอักขระไปยังรายการจำนวนเต็ม (รายการซิงเกิลหากพบถ่านรายการอื่นที่ว่างเปล่า) fค้นหาข้อโต้แย้งของ char ทุกตัวและทำให้รายการที่ส่งคืนของรายการนั้นกลับเป็นรายการจำนวนเต็มและการโทรgเพื่อตรวจสอบสภาพสิ้นสุด (รายการที่ว่างเปล่า (-> *) หรือจำนวนเต็มเดียว) หรือเพื่อเรียกfด้วยผลรวมของรายการสำหรับรอบอื่น

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

อย่างจริงจัง 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

Pyth, 39 ไบต์

IK@J+jkUTGrz0WtK=K`smh%xtJd9-K\0)K).?\*

ลองใช้ออนไลน์

ฉันแค่ทำสิ่งนี้เพราะฉันนอนไม่หลับ บางทีฉันจะอธิบายในวันพรุ่งนี้ ...

ทุบตีบริสุทธิ์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:-*}"

(ตัวแบ่งบรรทัดที่สองมีไว้เพื่อหลีกเลี่ยงแถบเลื่อนเท่านั้น)

กฎทดสอบ:

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

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>

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"*"

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 magic สำหรับมือใหม่: foo//.a_:>Tr@IntegerDigits@aเป็นการแทนที่ซ้ำ: แทนที่ตัวเลขใด ๆaใน foo ด้วยผลรวมของตัวเลขของพวกเขาจากนั้นจะแทนที่อีกครั้งจนกว่าจะถึงจุดคงที่คือ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}