16

In dieser Aufgabe erhält Ihr Code eine Ganzzahl als Eingabe. Ihr Code sollte dann die größte Anzahl von Vielfachen von ausgeben, die verkettet werden können (in Basis ), um (ohne führende Nullen) zu bilden. Wenn Sie zum Beispiel als Eingabe erhalten haben, $n$ $3$ $10$ $3n$ $26042$

$26042\times3=78126$

und können durch Verketten von , und , sodass Sie ausgeben . $78126$ $78$ $12$ $6$ $3$

Beliebige Standardformen von IO sind zulässig. Antworten sollten darauf abzielen, die Anzahl der Bytes in ihrem Code zu minimieren.

Hier sind die ersten Einträge in dieser Reihenfolge, beginnend mit Null: $6562$

1,1,1,1,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,3,3,3,3,3,3,4,4,4,4,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,2,3,3,3,3,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,2

code-golf sequence Weizen-Assistent
quelle

8

Es wäre toll, einige Beispiele auf dem Formular zu haben n -> f(n), wo f(n)die Antwort ist. Wie es jetzt ist, kann ich nicht einmal sagen, ob Ihre 6561 Einträge 0-indiziert oder 1-indiziert sind.

Maxb

@maxb Es gibt zu viele Beispiele für dieses Format. Meine Liste ist null indiziert.

Wheat Wizard

2

Natürlich, aber einige wenige Auserwählte wären zusätzlich zum ersten Beispiel großartig. Und nach allem, was ich sehen kann, dürfen wir die Zahl teilen, wie wir wollen? Also wäre eine Brute-Force-Implementierung erforderlich (in einigen Sprachen), um die maximale Anzahl von Vielfachen von 3 zu finden? Definieren Sie 0 auch als ein Vielfaches von 3? Ihrer Frage nach scheint es so.

3 n

$3n$

Maxb

@maxb Es gibt zwei Tricks, mit denen Lösungen auf kürzere und schnellere Weise erstellt werden können. (Hinweis 3 ist etwas Besonderes) und ja, 0 ist ein Vielfaches von 3. Ich weiß nicht, wie es sonst sein könnte.

Weizen-Assistent

9

Haskell , 51 Bytes

f n=sum[1|x<-scanr(:)"0".show$3*n,read x`mod`3<1]-1

Probieren Sie es online!

Die Schlüsselidee lautet wie folgt: Wenn Sie ein Vielfaches von 3 (nennen Sie es ), schreiben Sie es am besten, indem Sie am Ende (oder am Anfang) beginnen und ein Vielfaches von 3 gierig auswählen. Wenn beispielsweise , erhalten wir (beginnend mit dem Ende) eine , dann eine und schließlich eine : . Beachten Sie, dass dies möglich ist, weil eine Zahl ein Vielfaches von 3 ist, wenn die Summe ihrer Ziffern ein Vielfaches von 3 ist. Beachten Sie auch, dass wir, wenn wir zwei Vielfache von 3 verketten, ein weiteres Vielfaches von 3 erhalten, also sind alles Vielfache von 3. $3n$ $3n=78126$ $6$ $12$ $78$ $78|12|6$ $6,12|6,78|12|6$

Daher kann die Antwort gefunden werden, indem die Liste der Suffixe von (z. B. ) betrachtet und die Vielfachen von 3 gezählt werden. $3n$ $[78126,8126,126,26,6]$

Delfad0r
quelle

9

Retina , 11 Bytes von Latin-1

v`.3*[012¶]

Probieren Sie es online!

Retina arbeitet eher mit Zeichenfolgen als mit Ganzzahlen. Daher nehme ich die Zahl so, wie sie in einer Datei erscheinen würde (Ziffern, gefolgt von einer neuen Zeile).

Algorithmus

Fast alle Lösungen hier haben eine Multiplikation mit 3, aber ich dachte, es wäre interessant, zu versuchen, das Problem ohne es zu lösen. Wir wissen bereits aus dem Algorithmus, den die meisten Leute verwenden, dass wir die Anzahl der durch 3 teilbaren Suffixe von 3 n identifizieren müssen. Bei einem Suffix von n (sagen wir s ) werden 3 s als Suffix von 3 n angezeigt wenn die Multiplikation s × 3 nicht in die Ziffer vor dem Suffix überträgt. In der Zwischenzeit, wenn die Multiplikation s × 3 trägt , dann das entsprechende Suffix von 3 nwird nicht durch 3 teilbar sein (da die digitale Wurzel von 3 * s * durch 3 - 3 Teilungen (10-1) teilbar ist und wir in der Basis 10 arbeiten - und das entsprechende Suffix von 3 * n * gleich ist 3 * s * aber ohne führendes 1oder 2, von denen keines durch 3) teilbar ist.

Wir müssen die Möglichkeit anpassen, dass 3 * n * mehr Ziffern als n hat , was bedeutet, dass 3 * n * ein zusätzliches Suffix hat, das keinem Suffix von n entspricht . Dieses Suffix ist trivial die ganze Zahl 3 * n * und wird (aus offensichtlichen Gründen) immer durch 3 teilbar sein. Wenn also die Multiplikation n × 3 trägt, müssen wir zum Ergebnis 1 addieren. Wir können feststellen, dass, wenn n × 3 nicht trägt, es mit einem naiven Algorithmus 1 zum Ergebnis beiträgt, wohingegen es, wenn dies der Fall ist, nicht beiträgt; und daher können wir diese Anpassung einfach durchführen, indem wir das "Suffix, das die ganze Zahl n darstellt " bedingungslos zählen, anstatt nach einem Übertrag zu suchen. Gleichermaßen (und etwas knapper) können wir es bedingungslos nicht Zählen Sie dieses Suffix und stattdessen ein anderes Suffix (das leere Suffix ist praktisch), da es dieselbe Summe ergibt.

Wie bestimmen wir, ob eine Multiplikation mit 3 tragen würde? Nun, wenn die erste Ziffer der Zahl größer als 3 ist, muss es sein; Wenn es weniger als 3 ist, kann es nicht. Wenn es 3 ist, hängt es in gleicher Weise von der nächsten Ziffer der Zahl ab, ob sie trägt oder nicht. Wenn die Zahl vollständig aus 3s besteht, wird die Multiplikation nicht übertragen (bei einer Zahl, die ausschließlich aus 9s besteht, hört sie nur kurz auf). Der gewünschte Algorithmus lautet also "Zählen der Anzahl der richtigen Suffixe, die mit 0 oder mehr 3s beginnen, gefolgt von 0, 1, 2 oder dem Ende der Zeichenfolge; plus einem zusätzlichen Suffix".

Erläuterung

Dieser Algorithmus endet in den meisten Sprachen länger als der Konsensus-Algorithmus, daher sende ich ihn in Retina ein, einer Sprache, in der er kürzer ist als die üblichere Methode (und eine ähnliche Länge wie Golfsprachen).

v`.3*[012¶]
v`            {Count the number of} points within the input from which you can
  .             ignore one character,
   3*           and skip past any number (including zero) of 3s,
     [012¶]     to find 0, 1, 2, or the newline at the end of the input.

Das Erfordernis, ein Zeichen zu ignorieren, bevor wir mit der Suche beginnen, bedeutet, dass das falsche Suffix, das aus der ganzen Zahl besteht, nicht gezählt werden kann beim ersten Zeichen). Das falsche Suffix, das nur aus dem Zeilenumbruch am Ende der Nummer besteht, wird jedoch immer gezählt, sodass wir das eine zusätzliche Suffix erhalten, das wir benötigen.

ais523
quelle

Dies war der Algorithmus, an den ich gedacht hatte, als ich die Frage schrieb. Ich bin froh zu sehen, dass jemand es benutzt hat!

Weizen-Assistent

@WW: Diese Antwort war eher ein Fall von "Dies ist ein interessanter Algorithmus, suchen wir eine Sprache, in der er effizient ist" als von "Dies ist eine interessante Sprache, suchen wir den besten Algorithmus darin". (Obwohl Retina sowieso eine interessante Sprache ist, wie es passiert!) Ich denke, dies ist ein seltsamer Nebeneffekt des "Wettbewerbs pro Sprache"; Dies bedeutet, dass Sie eine Antwort in gewisser Weise "besser" machen können, indem Sie sie in eine Sprache übersetzen, die mit Übersetzungen konkurrierender Antworten nicht gut zurechtkommt.

AIS523

Ich glaube, [¶-2]spart ein Byte, da Sie davon ausgehen sollten, dass die Eingabe nur aus numerischen Ziffern und der Newline besteht.

FryAmTheEggman

7

Schale , 9 Bytes

#o¦3dṫd*3

Probieren Sie es online aus oder überprüfen Sie die ersten 2188 Begriffe!

Erläuterung

#(¦3d)ṫd*3  -- example: 42
        *3  -- times 3: 126
       d    -- digits: [1,2,6]
      ṫ     -- tails: [[1,2,6],[2,6],[6]]
#(   )      -- count values that are truthy when
    d       -- | undigits: [126,26,6]
  ¦3        -- | divisible by 3: [42,0,2]
            -- : 2

ბიმო
quelle

3

Perl 6 , 54 28 Bytes

-14 bytes dank nwellnhof!

{+grep *%%3,[\~] .comb}o*×3

Probieren Sie es online!

Dies zählt, wie viele Präfixe der Zahl mal drei durch 3 teilbar sind.

Erläuterung:

{                     }o*×3  # Pass the input times 3 into the code block
            [\~] .comb   # Get all the prefixes of the number
  grep     , # Filter from that
       *%%3  # All numbers divisible by 3
 +   # Return the length of the list

Scherzen
quelle

Ein weiteres Byte abgeschabt .

Nwellnhof

@nwellnhof Ich wusste nicht, dass man mit Whatever Code kombinieren kann. Ordentlich!

Jo King

3

05AB1E , 14 12 7 6 Bytes

3*η3ÖO

-5 Bytes, die einen Port der Antwort von @BMO 's Husk erzeugen .
-1 Byte dank @Nitrodon durch Ändern der Suffixe in Präfixe.

Probieren Sie es online aus oder überprüfen Sie die ersten 1000 Artikel .

Erläuterung:

3*        # Multiply the (implicit) input by 3
          #  i.e. 26042 → 78126
  η       # List of prefixes
          #  i.e. 78126 → ["7","78","781","7812","78126"]
   3Ö     # Check for each if its divisible by 3
          #  i.e. ["7","78","781","7812","78126"] → [0,1,0,1,1]
     O    # And take the sum (which is implicitly output)
          #  i.e. [0,1,0,1,1] → 3

Alte 12-Byte-Antwort:

3*.œʒ3ÖP}€gà

Oder alternativ sein €gàkann éθg.

Probieren Sie es online aus oder überprüfen Sie die ersten 1000 Artikel

Erläuterung:

3*             # Multiply the (implicit) input by 3
               #  i.e. 26042 → 78126
  .œ           # Take all possible partitions of this number
               #  i.e. 78126 → [["7","8","1","2","6"],["7","8","1","26"],["7","8","12","6"],
               #                ...,["781","26"],["7812","6"],["78126"]]
    ʒ   }      # Filter these partitions by:
     3ÖP       #  Only keep partitions where every number is divisible by 3
               #   i.e. ["7","8","1","2","6"] → [0,0,0,0,1] → 0
               #   i.e. ["78","12","6"] → [1,1,1] → 1

               #(option 1:)
         €g    # Take the length of each remaining partition
               #  i.e. [["78","12","6"],["78","126"],["7812","6"],["78126"]] → [3,2,2,1]
           à   # And take the max (which we output implicitly)
               #  i.e. [3,2,2,1] → 3

               #(option 2:)
         é     # Sort the remaining partitions by length
               #  i.e. [["78","12","6"],["78","126"],["7812","6"],["78126"]]
               #   → [["78126"],["78","126"],["7812","6"],["78","12","6"]]
          θ    # Take the last one (the longest)
               #  i.e. [["78126"],["78","126"],["7812","6"],["78","12","6"]]
               #   → ["78","12","6"]
           g   # And take its length (which we output implicitly)
               #  i.e. ["78","12","6"] → 3

Kevin Cruijssen
quelle

1

Die Verwendung von Präfixen anstelle von Suffixen ergibt dasselbe Ergebnis in einem Byte weniger.

Nitrodon

@ Nitrodon Danke! :) Ich kannte die eingebauten 1-Byte-Präfixe, erkannte jedoch nicht, dass die Herausforderung auch durch die Verwendung von Präfixen anstelle von Suffixen funktioniert.

Kevin Cruijssen

2

Python 2 , 99 88 Bytes

lambda n:g(`3*n`)
g=lambda n:int(n)%3<1and 1+max([g(n[i:])for i in range(1,len(n))]+[0])

Probieren Sie es online!

TFeld
quelle

2

APL (Dyalog Unicode) , 14 Byte

+/0=3|+\⍎¨⍕3×⎕

Probieren Sie es online! oder überprüfen Sie die ersten 1000

Erklärung

+/0=3|+\⍎¨⍕3×⎕
             ⎕ ⍝ prompt for input
           3×  ⍝ multiply by 3
        ⍎¨⍕    ⍝ convert the number to a vector of digits
      +\       ⍝ take the cumulative sum
    3|         ⍝ find each term modulo 3
+/0=           ⍝ count those that equal 0

Dies funktioniert, weil eine Zahl genau dann durch drei teilbar ist, wenn die Summe ihrer Ziffern durch drei teilbar ist

jslip
quelle

2

JavaScript (ES6), 41 Byte

f=(n,i=10)=>!(n*3%i%3)+(n*3>i&&f(n,i*10))

Probieren Sie es online!

Arnauld
quelle

2

Haskell , 44 Bytes

g.(*3).max 1
g 0=0
g n=0^mod n 3+g(div n 10)

Probieren Sie es online!

Verwendet Delfad0rs Beobachtung, dass die Ausgabe die Anzahl der Suffixe (äquivalent Präfixe) von 3n ist, die ein Vielfaches von 3 sind. Diese Methode ermittelt die Präfixe arithmetisch, indem sie mehrmals durch 10 dividiert werden, anstatt die Zeichenfolgendarstellung zu verwenden. Dies 0^ist eine kurze arithmetische Methode, um zu erzeugen, 1wenn der Exponent mod n 3Null ist, und 0andernfalls zu erzeugen .

Die erste Zeile ist die Hauptfunktion, die die Eingabe verdreifacht, bevor sie an die grekursiv definierte Hilfsfunktion übergeben wird. Das max 1ist ein Hack, um f(0)gleich 1 zu machen , da wir Null wie die Zeichenkette '0'und nicht wie die leere Zeichenkette behandeln müssen.

xnor
quelle

2

MathGolf , 15 bis 14 Bytes

3*▒0\Æ§_3÷\;]Σ

Probieren Sie es online!

-1 Byte dank JoKing

Erläuterung

3*                Multiply the input by 3
  ▒               Convert to a list of digits
   0\             Push a zero and swap the top two elements
     Æ            Execute the next 5 characters for each block
      §           Concatenate
       _          Duplicate
        3÷        Check divisibility by 3 (returns 0 or 1)
          \       Swap top two elements
           ;      Discard TOS (the last swap
            ]Σ    Wrap the entire stack in an array and output its sum

Ich weiß nicht, ob dies die richtige Lösung für das Problem ist, aber es ahmt die JS-Lösung von Arnauld nach. Wenn ich mich irre, werde ich versuchen, es zu beheben.

maxb
quelle

14 Bytes

Jo King

@JoKing Ich muss herausfinden, was Ihr Code tut, dann werde ich mit einer Erklärung aktualisieren (ich weiß, was es tut, aber nicht, warum es funktioniert)

maxb

1

Pyth, 16 15 Bytes

lef!.E%vT3./`*3

Probieren Sie es hier online aus .

lef!.E%vT3./`*3Q   Implicit: Q=eval(input())
                   Trailing Q inferred
            `*3Q   Input * 3
            `      Convert to string
          ./       Take divisions into disjoint substrings
  f                Filter the above using:
       vT            Convert each back to integer
      %  3           Mod 3
    .E               Are any non-0?
   !                 Logical NOT
le                 Take the length of the last value
                   As the substring sets are generated in order of number of 
                   substrings, the last value is guaranteed to be the longest

Sok
quelle

1

Shakespeare-Programmiersprache , 376 Bytes

T.Ajax,.Page,.Act I:x.Scene I:x[Enter Ajax and Page]Ajax:Listen tothy!You be the sum ofthe sum ofyou you you!Scene V:x.Page:You be the sum ofyou the quotient betweena cat the sum ofa cat the remainder of the quotient betweenI the sum ofa big cat a cat!Ajax:You be the quotient betweenyou twice the sum ofa big big cat a cat!Be you nicer zero?If solet usscene V.Page:Open heart

Probieren Sie es online!

Ich frage mich, ob der 1/(1+I/3)Trick besser ist als ein Kontrollfluss.

user202729
quelle

Die Nachszenen brauchst du nicht x. Probieren Sie es online!

Jo King

1

Java 10, 66 Bytes

n->{int m=1,r=n<1?1:0;for(n*=3;m<n;m*=10)r+=n%m%3<1?1:0;return r;}

Probieren Sie es online aus.

Erläuterung:

Verwendet eine Kombination aus der Antwort von @BMO 's Husk (Überprüfung, wie viele Präfixe durch 3 teilbar sind) und der Antwort von @Arnauld ' s JavaScript (ES6) (Multiplikation einer Ganzzahl mit 10 bei jeder Iteration und Ermitteln der Präfixe mit einem Modulo dieser Ganzzahl). .

n->{             // Method with integer as both parameter and return-type
  int m=1,       //  Modulo-integer, starting at 1
      r=         //  Result-integer, starting at:
        n<1?     //   If the input is the edge-case 0:
         1       //    Start it at 1
        :        //   Else:
         0;      //    Start it at 0
  for(n*=3;      //  Multiply the input by 3
      m<n;       //  Loop as long as `m` is still smaller than `n`
      m*=10)     //    After every iteration: Multiply `m` by 10
    r+=n%m       //   If `n` modulo-`m` (to get a suffix),
          %3<1?  //   is divisible by 3:
        1        //    Increase the result-sum by 1
       :         //   Else:
        0;       //    Leave the result-sum the same by adding 0
  return r;}     //  Return the result-sum

Kevin Cruijssen
quelle

1

Retina , 35 32 Bytes

.+
$.(*3*
Lv$`.+
<$&*->
<(---)*>

Probieren Sie es online! Erläuterung:

.+
$.(*3*

Multiplizieren Sie die Eingabe mit 3.

Lv$`.+
<$&*->

Konvertieren Sie jedes Suffix in Unary.

<(---)*>

Zählen Sie die Vielfachen von drei.

Neil
quelle

1

K (ngn / k) , 16 Bytes

{+/~3!+\.:'$3*x}

Probieren Sie es online!

ngn
quelle

1

Python 2 , 48 Bytes

n=input()*3;p=n<1
while n:p+=n%3<1;n/=10
print p

Probieren Sie es online!

Ähnlich wie die Antwort von ovs , jedoch wird das gesamte Präfix mod 3 verwendet, ohne dass die letzte Ziffer akkumuliert wird. Ausgabe Trueals 1 bei Eingabe von 0.

Python 3 , 42 Bytes

f=lambda n:n>=1and(n%1<1/3)+f(n/10)or n==0

Probieren Sie es online!

Verwendet Ideen aus der sehr schönen Lösung von ais523 . Dividiert die Eingabe wiederholt durch 10, bis sie null ist, und zählt, wie oft der Bruchteil kleiner als 1/3 ist. Bei sehr großen Eingängen wird die Float-Genauigkeit möglicherweise ein Problem sein. Der n=0Fall wird so behandelt, or n==0dass er für 1 als True zurückgegeben wird. Der Code kann in Python 2 funktionieren, wenn die Eingabe ein Float ist, und wir schreiben ihn n%1<1/3mit n%1*3<1derselben Länge neu.

xnor
quelle

1

Gelee , 7 Bytes

×3DÄ3ḍS

Probieren Sie es online!

Wie es funktioniert

×3DÄ3ḍS  Main link. Argument: n

×3       Compute 3n.
  D      Decimal; convert 3n to the array of its digits in base 10.
   Ä     Accumulate; take the cumulative sum.
         Note that an integer and its digit sum are congruent modulo 3.
    3ḍ   Test each partial digit sum for divisibility by 3.
      S  Take the sum of the Booleans, counting the multiples of 3.

Dennis
quelle

0

Stax , 8 Bytes

αNΘ╠╠1d}

Führen Sie es aus und debuggen Sie es

Ausgepackt, ungolfed und kommentiert sieht es so aus.

3*      triple input
E       convert to array of decimal digits
:+      get all prefix sums
F       for each prefix sum
  3%!   is it a multiple of 3?
  +     add to running total

Führen Sie dieses aus

rekursiv
quelle

0

Japt `-x`, 12 Bytes

*3 s å+ ®°v3

Probieren Sie es aus oder zeigen Sie die Ergebnisse für an0-1000

Zottelig
quelle

0

J , 20 Bytes

1#.0=[:(3|".)\3":@*]

Probieren Sie es online!

Galen Ivanov
quelle

0

Python 2 , 56 Bytes

n=input()*3;k=p=0
while n:k+=n%10;n/=10;p+=k%3<1
print p

Probieren Sie es online!

ovs
quelle

Wie viele drei?

Antworten:

Haskell , 51 Bytes

Retina , 11 Bytes von Latin-1

Algorithmus

Erläuterung

Schale , 9 Bytes

Erläuterung

Perl 6 , 54 28 Bytes

Erläuterung:

05AB1E , 14 12 7 6 Bytes

Python 2 , 99 88 Bytes

APL (Dyalog Unicode) , 14 Byte

Erklärung

JavaScript (ES6), 41 Byte

Haskell , 44 Bytes

MathGolf , 15 bis 14 Bytes

Erläuterung

Pyth, 16 15 Bytes

Shakespeare-Programmiersprache , 376 Bytes

Java 10, 66 Bytes

Retina , 35 32 Bytes

K (ngn / k) , 16 Bytes

Python 2 , 48 Bytes

Python 3 , 42 Bytes

Gelee , 7 Bytes

Wie es funktioniert

Stax , 8 Bytes

Japt `-x`, 12 Bytes

J , 20 Bytes

Python 2 , 56 Bytes

Wie viele drei?

Antworten:

Haskell , 51 Bytes

Retina , 11 Bytes von Latin-1

Algorithmus

Erläuterung

Schale , 9 Bytes

Erläuterung

Perl 6 , 54 28 Bytes

Erläuterung:

05AB1E , 14 12 7 6 Bytes

Python 2 , 99 88 Bytes

APL (Dyalog Unicode) , 14 Byte

Erklärung

JavaScript (ES6), 41 Byte

Haskell , 44 Bytes

MathGolf , 15 bis 14 Bytes

Erläuterung

Pyth, 16 15 Bytes

Shakespeare-Programmiersprache , 376 Bytes

Java 10, 66 Bytes

Retina , 35 32 Bytes

K (ngn / k) , 16 Bytes

Python 2 , 48 Bytes

Python 3 , 42 Bytes

Gelee , 7 Bytes

Wie es funktioniert

Stax , 8 Bytes

Japt -x, 12 Bytes

J , 20 Bytes

Python 2 , 56 Bytes

Japt `-x`, 12 Bytes