Mein Freund und ich arbeiteten an einem Labor in unserer AP-Informatik-Klasse und beschlossen, Golf als Problem zu codieren, da wir noch die Hälfte der Klasse frei hatten, nachdem wir fertig waren. Hier ist die Frage:

Ist n bei einer gegebenen Zahl n durch jede seiner Ziffern teilbar?

Zum Beispiel bestehen 128 diesen Test - er ist durch 1,2 und 8 teilbar. Alle Zahlen mit einer Null disqualifizieren die Zahl automatisch. Wenn Sie möchten, können Sie auch andere Sprachen verwenden und Lösungen veröffentlichen. Wir sind jedoch am meisten daran interessiert, wie kompakt Leute das Programm in Java erstellen können, da dies die Sprache ist, die wir in der Klasse verwenden. Bisher haben wir beide 51. Hier ist mein aktueller Code:

public boolean dividesSelf(int n){for(int p=n;n%10>0;)n/=p%(n%10)>0?.1:10;return n<1;}
// 51 characters

// Breakdown:
// for(int p=n;         Saves one semicolon to put declaration into for loop
// n%10>0;)             Basic check-for-zero
// n/=                  Pretty simple, discarding one number off of n at a time
// p%(n%10)>0?          If p (the given value) is not divisible by n%10 (the current digit)...
// .1:10;               Divide by .1 (multiply by 10) so it fails the check next iteration. If it is divisible, divide by 10 to truncate the last digit
// return n<1           If the number was fully divisible, every digit would be truncated, and n would be 0. Else, there would still be non-zero digits.

Bedarf

Die Methodensignatur kann beliebig sein. Zählen Sie einfach den Funktionskörper. Stellen Sie jedoch sicher, dass die Methode einen booleschen Wert zurückgibt und nur einen numerischen Parameter (keine Zeichenfolge) übergibt .

Der Code muss in der Lage sein, alle diese Fälle zu übergeben (um den Anweisungen der ursprünglichen Frage gerecht zu werden, zählen nur boolesche wahre und falsche Werte, wenn die Sprache boolesche Werte unterstützt. Wenn und nur wenn Ihre Sprache keine booleschen Variablen enthält) kann false mit 0 und true mit einer beliebigen Ganzzahl ungleich Null (vorzugsweise 1 oder -1) darstellen:

128 -> true
 12 -> true
120 -> false
122 -> true
 13 -> false
 32 -> false
 22 -> true
 42 -> false
212 -> true
213 -> false
162 -> true
204 -> false

Außerdem haben wir keine Leerzeichen gezählt. Sie können dies auch tun, es sei denn, die Leerzeichen sind für die Funktionsweise des Programms von wesentlicher Bedeutung (daher zählen in Java keine Zeilenumbrüche, sondern nur ein Leerzeichen zwischen intund x=1.). Viel Glück !

Perl 6, 13

sub golf($_) {
   $_%%.comb.all
}

Verwendet die implizite Variable $_- $_ %% .comb.allentspricht $_ %% all($_.comb). %%ist der Operator "ist teilbar" und gibt combohne zusätzliches Argument eine Liste der Zeichen in einer Zeichenfolge zurück. Wenn das Argument beispielsweise 123 lautet, wird die Funktion ausgewertet

123 %% all(123.comb)

welches ist

123 %% all(1, 2, 3)

Junction-Autothreading macht es

all(123 %% 1, 123 %% 2, 123 %% 3)

welches ist

all(True, False, True)

was im booleschen Kontext falsch ist, weil es eine "all" -Verbindung ist und offensichtlich nicht alle ihre Elemente wahr sind.

Es sollte möglich sein, den Rückgabewert zu erzwingen Boolund die Junction vor Aufrufern zu verbergen, indem die Funktionssignatur erstellt wird sub golf($_ --> Bool()), aber Zwänge in Funktionssignaturen funktionieren in Rakudo noch nicht. Der Rückgabewert ist immer noch richtig wahr oder falsch, es ist einfach nicht Trueoder False.

C # und System.Linq - 26/40

Nach den Regeln, ohne die Methodendeklaration selbst zu zählen.

bool dividesSelf(int i) { 
    return(i+"").All(d=>i%(d-48d)<1);
}

Dies zeigt einmal mehr, dass C # die beste Wahl ist, wenn Java in Betracht gezogen wird ... I kid, I kid!

Leider liefert diese Funktion (und viele andere Antworten) keine korrekten Ergebnisse für negative Eingaben. Wir können das beheben, aber die Lösung verliert viel von ihrem Charme (und wird 46 Zeichen lang):

return(i+"").All(d=>d>48&&i%(d-48)==0||d==45);

Bearbeiten : Ein Charakter wurde mit Tims Vorschlag abgeschabt.

Edit : Mit der Einführung von ausdrucksstarken Mitgliedern in C # 6 können wir dies weiter eingrenzen, indem wir Folgendes ausschneiden return:

bool dividesSelf(int i) =>
    (i+"").All(d=>i%(d-48d)<1);

für insgesamt 26 Zeichen (sollte meiner Meinung =>nach nicht mehr als geschweifte Klammern enthalten sein). Die Version mit negativen Zahlen kann ebenfalls gekürzt werden.

APL ( 13 11)

{0∧.=⍵|⍨⍎¨⍕⍵}

Erläuterung:

• ⍎¨⍕⍵: werte jedes Zeichen in der Stringdarstellung von aus ⍵
• ⍵|⍨: für jeden von denen finden Sie das Modulo davon und ⍵
• 0∧.=: sehen Sie, ob alle diese gleich sind 0

Testfälle:

      N,[.5] {0∧.=⍵|⍨⍎¨⍕⍵} ¨ N←128 12 120 122 13 32 22 42 212 213 162 204
128 12 120 122 13 32 22 42 212 213 162 204
  1  1   0   1  0  0  1  0   1   0   1   0

Python 2: 43 Zeichen

f=lambda n:any(n%(int(d)or.3)for d in`n`)<1

Überprüft, ob die Zahl Reste ungleich Null hat, und gibt die Negation davon aus. Nullstellen werden seltsam gehandhabt: Da die Berechnung %0einen Fehler verursacht, werden Ziffern durch 0ersetzt .3, was aufgrund von Gleitkommaungenauigkeiten immer ein Ergebnis ungleich Null zu liefern scheint.

Der Funktionskörper ist 32 Zeichen.

Perl - 27 Bytes

sub dividesSelf{
    $_=pop;s/./!$&||$_%$&/ger<1
}

Die Funktionssignatur wird nicht wie angegeben gezählt.

Beispielnutzung:

use Data::Dump qw(dump);
for $i (128, 12, 120, 122, 13, 32, 22, 42, 212, 213, 162, 204) {
  printf "%3d -> %s\n", $i, dump(dividesSelf $i);
}

Beispielausgabe:

128 -> 1
 12 -> 1
120 -> ""
122 -> 1
 13 -> ""
 32 -> ""
 22 -> 1
 42 -> ""
212 -> 1
213 -> ""
162 -> 1
204 -> ""

Problembeschreibung: "Es zählen nur die booleschen wahren und falschen Werte. Wahrheits- / Falschheitswerte zählen nicht ."

use Data::Dump qw(dump);
dump(1 == 1);
dump(0 == 1);

Ausgänge:

1
""

'Richtig' und 'Falsch' werden als 1und definiert "".

Erratum:
Wie Brad Gilbert zu Recht hervorhebt, definiert Perl true als Skalar, der sowohl die Ganzzahl 1als auch die Zeichenfolge "1"gleichzeitig ist, und false als Skalar, der sowohl die Ganzzahl 0als auch die Zeichenfolge ""gleichzeitig ist.

CJam, 11 10 Bytes

{
    _Ab:df%:+!
}:F;

Dies definiert eine benannte Funktion Fund löscht den Block vom Stapel.

Probieren Sie es online aus.

Testfälle

$ cjam <(echo '{_Ab:df%:+!}:F;[128 12 120 122 13 32 22 42 212 213 162 204]{F}%p')
[1 1 0 1 0 0 1 0 1 0 1 0]

Wie es funktioniert

_      " Copy the integer on the stack.                                          ";
Ab     " Push the array of its digits in base 10.                                ";
:d     " Cast each digit to Double.                                              ";
f%     " Take the integer on the stack modulus each of its digits.               ";
:+     " Add the results.                                                        ";
!      " Push the logical NOT of the sum.                                        ";

JavaScript ES6, 39 32 28 Bytes

v=>[...""+v].every(x=>v%x<1)

Vielen Dank an core1024 für den Vorschlag zum Ersetzen (""+v).split("")durch [...""+v]und openorclose für den Vorschlag zur Verwendung der everyFunktion.

Die Antwort enthält derzeit kein Bit meines Codes: O

Vorherige Lösung

v=>[...""+v].filter(x=>v%x|!+x)==""

==""Dies ist keine gültige Methode, um zu überprüfen, ob ein Array leer ist, da [""]==""zurückgegeben truewird. Das Array enthält jedoch garantiert nicht leere Zeichenfolgen, sodass es hier funktioniert.

Der Rest ist eine Standard-Kurzschriftkonvertierung in JavaScript.

Java 8, 46 Bytes (Methodentext)

Mit Jeroen Mosterts Umwandlung in einen Doppeltrick.

public static boolean dividesSelf(int n) {
    return(""+n).chars().allMatch(x->n%(x-48d)<1);
}

Pyth, 12 Bytes

!f|!vT%vzvTz

Dies filtert die Zeichen in der Zeichenfolge dahingehend, dass sie entweder Null ( !vT) sind oder die Eingabe ( %vzvT) nicht teilen , und nimmt dann das logische Nicht der resultierenden Liste auf.

Probieren Sie es hier aus.

Ruby, 44 Bytes (Funktionskörper: 37)

Möglicherweise besteht das Potenzial, weiter Golf zu spielen.

f=->n{n.to_s.chars.all?{|x|x>?0&&n%x.hex<1}}

Eingabe durch Funktion übernommen f. Anwendungsbeispiel:

f[128] # => true
f[12]  # => true
f[120] # => false
...

Python - 59 50 49 47 Bytes

f=lambda n:all(c>'0'and 0==n%int(c)for c in`n`)

Ich bin mir sicher, dass es einen schnelleren Weg gibt ... na ja.

Bearbeiten - Danke an FryAmTheEggman für die Golftipps.

Edit 2 - FryAmTheEggman hat dies möglicherweise genauso gut an dieser Stelle geschrieben, hoppla

Bearbeiten Sie 3 - Hände hoch, wenn Sie nicht einmal wussten, dass Genexps eine Sache sind. ...Nur ich?

Pyth 11

!f%Q|vT.3`Q

Dies kombiniert die Antworten von @ isaacg und @ xnor . Es filtert Ziffern aus der Eingabe heraus, indem es den Wert von überprüft input % (eval(current_digit) or .3). Dann wird geprüft, ob die resultierende Zeichenfolge leer ist oder nicht.

Kam über ein anderes Paar gleich langer Varianten:

!f%Q|T.3jQT
!f|!T%QTjQT

Probieren Sie es online aus.

Bash + Coreutils, 44 Bytes

Die vollständige Funktionsdefinition lautet:

f()((`tr 0-9 \10<<<$1``sed "s/./||$1%&/g"<<<$1`))

Ich bin mir nicht sicher, wie ich das bewerten soll, da Shell-Funktionen normalerweise einen einzelnen Satz von {}oder verwenden (), um den Funktionskörper zu enthalten. Ich fand hier, dass ich auch double verwenden könnte (()), um den Funktionskörper zu enthalten, der eine arithmetische Erweiterung verursacht, die ich hier benötige. Im Moment zähle ich also nur ein Paar dieser Klammern - eine weitere Diskussion darüber ist willkommen.

Ausgabe:

$ for i in 128 12 120 122 13 32 22 42 212 213 162 204; do f $i; printf "%d " $?; done
1 1 0 1 0 0 1 0 1 0 1 0 $
$

J - 14 Zeichen

Der Funktionskörper ist der Teil nach dem =:. Wenn wir die Zeichenanzahl für die gesamte Funktion minimieren möchten, sind das die 15 Zeichen */@(0=,.&.":|]).

f=:0*/@:=,.&.":|]

,.&.":ist der kürzeste Weg in J, um als Zahl in eine Liste seiner Dezimalstellen zu expandieren: konvertieren Sie in eine Zeichenfolge, trennen Sie die Ziffern und konvertieren Sie jede Ziffer zurück in eine Zahl. ,.&.":|]Nimmt die eingegebene Zahl ( ]) modulo ( |) diese Ziffern. 0*/@:=Gibt true zurück, wenn alle Ergebnisse 0 waren, andernfalls false.

   f 162
1
   f every 204 212 213
0 1 0

Java - 121 102 97 79 78 Bytes

Ich weiß nur, dass dies später überfüllt sein wird. Naja.

boolean b(int a){int m=10,j,t=1;for(;m<a*10;m*=10){j=10*(a%m)/m;if(j==0||a%j>0)t=0;}return t>0;}

Ich werde wiederkommen.

Haskell - 100 54 38

f x=all(\y->y>'0'&&x`mod`read[y]<1)$show x

Noch lernen, Kritik geschätzt

CJam, 15 Bytes

{_Abf{_g{%}*}:|!}

Dies ist ein Block, der einer Funktion in CJam am nächsten kommt. Ich zähle nur den Körper (dh ich lasse die Klammern weg). Sie können es wie folgt verwenden:

128{_Abf{_g{%}*}:|!}~

Oder wenn Sie eine Reihe von Eingaben testen möchten, können Sie dies tun

[128 12 120 122 13 32 22 42 212 213 162 204]{{_Abf{_g{%}*}:|!}~}%

Der Block hinterlässt 0(falsch) oder 1(wahr) auf dem Stapel, um das Ergebnis anzuzeigen. (CJam hat keinen Booleschen Typ.)

Teste es hier.

Erläuterung:

_               "Duplicate input.";
 Ab             "Get base-10 digits.";
   f{      }    "This maps the block onto the list of digits, supplying the input each time.";
     _g         "Duplicate digit, get signum S (0 or 1).";
       { }*     "Repeat this block S times.";
        %       "Take input modulo digit.";
                "This leaves an array of zeroes for divisible digits, non-zeroes
                 for non-divisible digits, and non-zero junk for zeroes.";
            :|  "Fold OR onto this list. One could also sum the list with :+";
              ! "Logical NOT. Turns 0 into 1, and non-zero values into 0.";

Alternativ auch 15 Bytes

{:XAb{X\_X)?%},!}

Erläuterung

:X              "Store input in X.";
  Ab            "Get base-10 digits.";
    {       },  "Filter this list by the result of the block.";
     X\         "Push another copy of X, swap with digit.";
       _        "Duplicate digit.";
        X)      "Push X+1.";
          ?     "Select digit itself or X+1, depending on whether digit is 0 or not.";
           %    "Take modulo. X%(X+1) will always be nonzero for positive integers.";
              ! "Logical NOT. Turns an empty list into 1 and a non-empty list into 0.";

CJam, 15 Bytes

{_Abf{_{%}1?}1b!}

{}ist einer Funktion in CJam am nächsten. Ich zähle nur den Körper der Funktion

Benutze es so:

128{_Abf{_{%}1?}1b!}~

Um entweder 1(wenn die Zahl teilbar ist) oder 0(wenn die Zahl nicht durch ihre Ziffern teilbar ist).

Probieren Sie es hier online aus

Erläuterung

_Ab                "Copy the number and split it to its digits";
   f{      }       "For each digit, run this code block on the number";
     _{%}1?        "If the digit is 0, put 1, otherwise perform number modulus digit";
            1b     "We now have an array of modulus corresponding to each digit. Sum it up";
              !    "Negate the sum. If all digits were divisible, sum of modules will be"
                   "0, thus answer should be 1 and vice versa";

C89, 43 Bytes

unsigned char d(int n, int c) {
        int a=n%10;return!n||a&&!(c%a)&&d(n/10,c);
}

C89 hat keinen Booleschen Typ. Hoffe das klappt. Ich habe auch einen zweiten Parameter verwendet, um eine Kopie der ursprünglichen Nummer durch den Stapel zu leiten, aber die Definition kann alles sein. Um das richtige Ergebnis zu erhalten, müssen Sie nur die Funktion mit dem gleichen Wert für beide Parameter aufrufen ( d(128, 128)).

BEARBEITEN: Vorgeschlagene Änderungen von einem anonymen Benutzer angewendet

C11 - 44 Bytes im Funktionskörper

Eine andere C-Version, nicht rekursiv und ohne Gleitkomma-Ausnahme.

bool digit_multiple(int i)
{
    for(int n=i;i%10&&n%(i%10)<1;i/=10);return!i;
}

Dies funktioniert auch in C ++, Java und den meisten anderen C-ähnlichen Sprachen.

Bearbeitet, um die Verbesserung von primos Kommentar einzuschließen.

Julia 32 25 23

Verbessert mit Ziffern

Behebt auch das Problem mit negativen Zahlen

selfDivides(x)=sum(x%digits(x).^1.)==0

Alte Methode

Alle Ziffern teilen sich, wenn die Summe aller Reste 0 ist. Hat wie andere ein Problem mit negativen Zahlen.

selfDivides(x)=sum(x.%(Float64["$x"...]-48))==0

Ausgabe

[selfDivides(x) for x in [128,12,120,122,13,32,22,42,212,213,162,204]]
12-element Array{Any,1}:
  true
  true
 false
  true
 false
 false
  true
 false
  true
 false
  true
 false

Verbesserte Methode behandelt auch BigInt

selfDivides(BigInt(11111111111111111111111111111111111111112))
true

jedoch

selfDivides(BigInt(11111111111111111111111111111111111111113))
false

da

BigInt(11111111111111111111111111111111111111113) %3
1

C / C ++, 58 Byte (44 im Hauptteil)

Ruft undefiniertes Verhalten auf (siehe Kommentare)

int d(int i){int j=i;while(i&&!(j%(i%10)))i/=10;return!i;}

trueund false sind 1 und 0, aber Sie können der Signatur ein Zeichen hinzufügen, um a zurückzugeben bool.

Und zum Spaß eine rekursive Version, die kleiner ist, wenn Sie Aufrufe des Formulars zulassen r(128,128)

Edit : Jetzt von den Regeln verboten:

int r(int i,int j){return!i||!(j%(i%10))&&r(i/10,j);}

R: 72 67 65

Die Funktion

f<-function(a)!(anyNA(a%%(d=as.double(strsplit(paste0(a),"")[[1]])))|sum(a%%d))

Vielen Dank an @AlexA und @plannapus für die Einsparungen

Testlauf

i=c(128,12,120,122,13,32,22,42,212,213,162,204)
for(a in i){print(f(a))}
[1] TRUE
[1] TRUE
[1] FALSE
[1] TRUE
[1] FALSE
[1] FALSE
[1] TRUE
[1] FALSE
[1] TRUE
[1] FALSE
[1] TRUE
[1] FALSE

GNU Awk: 53 Zeichen

Der gezählte Teil:

for(;++i<=split($1,a,//);)r=r||!a[i]||v%a[i];return!r

Die gesamte Funktion:

function self_divisible(v, i, r)
{
    for (; ++i <= split($1, a, //); )
        r = r || ! a[i] || v % a[i]

    return ! r
}

Da Awk keine booleschen Werte hat, wird 1 für true und 0 für false zurückgegeben.

JavaScript (ES6) 30

Funktion mit einem numerischen Parameter. Bei Verwendung von% und Subtraktion muss kein Sonderfall '0' angegeben werden, da 0% 0 in JavaScript NaN ist.

Bearbeiten Gespeichert 1 Zeichen x DocMax

F=n=>[for(d of t=n+'')t-=n%d]&&t==n 

Nur zum Spaß, Missbrauch der Regel, dass die Funktionssignatur nicht gezählt wird, 4

Check=(n,t=n+'',q=[for(d of t)n-=t%d])=>t==n

Test In FireFox / Firebug - Konsole

console.log([128, 12, 120, 122, 13, 32, 22, 42, 212, 213, 162, 204]
.map(x=>+x + ' -> ' + F(x)).join('\n'))

Ausgabe

128 -> true
12 -> true
120 -> false
122 -> true
13 -> false
32 -> false
22 -> true
42 -> false
212 -> true
213 -> false
162 -> true
204 -> false

PHP: 85 Bytes (64 Bytes auf dem Körper)

Damit diese Funktion funktioniert, übergeben Sie einfach eine Zeichenfolge oder eine Zahl.

0 wird korrekt false zurückgeben.

Der Code:

function f($n,$i=0){for($n.='';$n[$i]&&$t=!($n%$n[$i++]););return$t&&$i==strlen($n);}

Bitte NICHT DEN 2. PARAMETER EINSTELLEN!

Javascript: 76 Bytes (61 Bytes auf dem Körper)

Dies ist eine Neufassung der vorherigen Funktion.

Zwischen beiden Versionen hat sich nicht viel geändert.

Hier ist der Code:

function f(n){for(i=0,n+='';n[i]/1&&(t=!(n%n[i++])););return t&&i==n.length}

Mehrsprachig: Javascript + PHP 187 217 Bytes (76 84 Bytes ohne Boilerplate):

Warum habe ich es geschafft?

Aus gutem Grund und vielleicht, weil ich kann!

Ignorieren Sie einfach den Fehler in PHP: es funktioniert trotzdem!
Dies wurde behoben, indem 3 Bytes entfernt wurden.

Hier ist das Meisterwerk:

if('\0'=="\0"){function strlen($s){return $s['length'];}}
function toString(){return'';}
function f($n){for($i=0,$n=$n.toString();$n[$i]/1&&($t=!($n%$n[$i++])););return $t&&$i==strlen($n);}

Sie können diesen Code sowohl auf Ihrer Konsole als auch auf einem PHP-Interpreter ausführen!

Alte Version:

if('\0'=="\0"){function strlen($s){return $s['length'];}}
function s($s){return('\0'=="\0")?$s+'':str_replace('','',$s);}
function f($n,$i){for($i=0,$n=s($n);$n[$i]/1&&($t=!($n%$n[$i++])););return $t&&$i==strlen($n);}

Oktave, 33 (39 einschließlich Funktionssetup)

Verwenden der Umwandlung von Zahlen in Matrizen:

f=@(a)sum(mod(a./(num2str(a)-48),1))==0

Teilen Sie die Zahl elementweise durch die Matrix X, wobei X durch Konvertieren der Zahl in eine Zeichenfolge und Subtrahieren von 48 gebildet wird, um wieder von ASCII-Werten zu Zahlen zu gelangen. Nehmen Sie Modulo 1, um den Dezimalteil jeder Division zu erhalten, und vergewissern Sie sich, dass alle Null sind (falls NaN aufgrund von / 0 vorhanden ist, ist die Summe NaN und daher nicht Null).

Beispieleingabe über www.octave-online.net:

f=@(a)sum(mod(a./(num2str(a)-48),1))==0
for j=[128,12,120,122,13,32,22,42,212,213,162,204]
f(j)
end

Ausgabe:

ans =  1
ans =  1
ans = 0
ans =  1
ans = 0
ans = 0
ans =  1
ans = 0
ans =  1
ans = 0
ans =  1
ans = 0

MATLAB - 39 Zeichen

function [b] = dividesSelf(i)
b=all(~mod(i,sscanf(num2str(i),'%1d')))
end

BASH - 117 Zeichen

f(){ [[ $1 =~ 0 ]]&& return 0 || r=;n=$1;for((i=0;i<${#n};i++));do r=$(($r+${n}%${n:$i:1}));done;return $(($r==0));}

Tests

for N in 128 12 120 122 13 32 22 42 212 213 162 204; do
  f $N
  echo "${N} ->  $?"
done

128 ->  1
12 ->  1
120 ->  0
122 ->  1
13 ->  0
32 ->  0
22 ->  1
42 ->  0
212 ->  1
213 ->  0
162 ->  1
204 ->  0

PHP - 74 71 64 Zeichen

Golf gespielt:

function t($n){while($n>1){if(!($b=$n%10)||($n%$b)){return 0;}$n/=10;}return 1;}

Weniger Golf:

function t($n){
    while($n>1){
        if( !($b=$n%10) || ($n%$b) )
            { return 0; }
        $n/=10;
    }
    return 1;
}

Testergebnisse:

(Code)

$ans = array(128,12,120,122,13,32,22,42,212,213,162,204);
foreach($ans as $a)
{ echo "$a -> ".(t($a)?"True":"False").PHP_EOL; }

(Ausgabe)

128 -> True
12 -> True
120 -> False
122 -> True
13 -> False
32 -> True
22 -> True
42 -> True
212 -> True
213 -> True
162 -> False
204 -> False