Gerçek bir sayı verildiğinde, negatif işaret (varsa) boş bir liste, tamsayı kısmı bir basamak listesi ve kesirli kısım (varsa) bir basamak listesi haline gelecek şekilde bir liste listesine dönüştürün. Rakamlar, dize değil gerçek sayı olmalıdır.

Örnekler

0 → [[0]]

123 → [[1,2,3]]

-123 → [[],[1,2,3]]

123.45 → [[1,2,3],[4,5]]

0.45 → [[0],[4,5]]

-0.45 → [[],[0],[4,5]]

-123.45 → [[],[1,2,3],[4,5]]

C #, 60 66 bayt

using System.Linq;s=>s.Split('-','.').Select(p=>p.Select(c=>c-48))

Çevrimiçi deneyin!

JavaScript (ES6), 33 44 43 41 bayt

Girişi dize olarak alır. Kurban 11 meydan spec sonra numaralara çıktı elemanlarını dönüştürme 10 bayt güncellendi.

s=>s.split(/\D/).map(a=>[...a].map(eval))

• Arnauld'un kullanma önerisi sayesinde bir bayt kurtardıeval .

Dene

console.log((
s=>s.split(/\D/).map(a=>[...a].map(eval))
)("-123.45"))

açıklama

s=>

Dizeyi parametre ile bağımsız değişken olarak alan anonim işlev s.
"-123.45"

s.split(/\D/)

Kullanım RegEx olmayan tüm haneli karakterlerin üzerinde bir diziye dize bölmek - yani -ve.
["","123","45"]

.map(a=>)

Her dizeyi parametre aracılığıyla bir işleve ileterek dizi üzerinden eşleyin a.

[...a]

Bireysel karakter dizelerinden oluşan bir diziye bölün.
[[],["1","2","3"],["4","5"]]

.map(eval)

Alt evaldiziyi ve onu bir tamsayıya dönüştüren her dizeyi eşleyin .
[[],[1,2,3],[4,5]]

Python 2 , 58 bayt

lambda x:[map(int,i)for i in`x`.replace(*'-.').split('.')]

Çevrimiçi deneyin!

Jöle ,  13  10 bayt

ŒṘµ<”/œpV€

Bir sayı alan ve ortaya çıkan sayı listelerini döndüren monadik bir bağlantı.

Çevrimiçi deneyin! (altbilgi yalnızca tüm gerçek listeleri göstermek için python temsilini yazdırır)
... veya test takımını görün .

Nasıl?

ŒṘµ<”/œpV€ - Link: number
ŒṘ         - Python representation (yields a string representation of the number)
  µ        - monadic chain separation (call that s)
    ”/     - literal '/' character
   <       - less than? (vectorises) ('.' and '-' are, digit characters are not)
      œp   - partition s at truthy indexes of the resulting list discarding the borders
        V€ - evaluate €ach (list of characters) as Jelly code (vectorises)

05AB1E , 12 11 bayt

Bayt kaydettiği için Riley'ye teşekkürler . Kod:

'-'.:'.¡εSï

05AB1E kodlamasını kullanır . Çevrimiçi deneyin!

Açıklama:

'-'.:            # Replace "-" by "."
     '.¡         # Split on "."
        ε        # Apply to each element..
         S       #   Split into a list of characters
          ï      #   Convert back to int

Python 2 , 59 bayt

lambda a:[[]]*(a<0)+[map(int,n)for n in`abs(a)`.split('.')]

Çevrimiçi deneyin!

Felipe Nardi Batista'dan -5 bayt

Aslında 23 bayt

'.@;)A$s⌠♂≈⌡M[[]]+@s~@t

Çevrimiçi deneyin!

Açıklama:

'.@;)A$s⌠♂≈⌡M[[]]+@s~@t
'.                       push "."
  @;)                    make a copy of the input and move it to the bottom of the stack
     A$s                 absolute value of input, stringify, split on periods
        ⌠♂≈⌡M            convert integer and fractional parts to lists of digits
             [[]]+       prepend an empty list
                  @s~    bitwise negation of sign of input (1 -> -2, 0 -> -1, -1 -> 0)
                     @t  elements in the list starting at that 0-based index (drops the leading empty list if the input was positive)

SOGL V0.12 , 11 bayt

Ζ-.ŗ .Θ⌡č¹r

Buradan Deneyin!

Yığının en üstüne çıkar (çünkü SOGL onu çok satırlı bir dizeye dönüştürür, çünkü ascii-art için yapılmıştır). Sonucu görüntülemek için, konsola sonradan bakın `r`@10:(dış parantezler yığın dizileridir) veya οø∑koddan sonra ekleyin

Ζ-.ŗ         replace "-" with "."
     .Θ      split on "."s
       ⌡     for each
        č      chop into characters (casts to strings :/)
         ¹   wrap in array (this + for each is like map())
          r  reverse types, vectorizing

Japt (v2.0a0), 12 10 8 bayt

Girişi dize olarak alır.

q\D ®¬®n

Test edin ( -Qyalnızca görselleştirme amacıyla işaretleyin.)

• Justin sayesinde 2 bayt kurtardı .
• ETH sayesinde 2 bayt kaydedildi.

açıklama

Örtülü dize girdisi U.

q\D

Sayısal qolmayan tüm karakterler üzerinde bir diziye bölmek ( ) için RegEx kullanın .

®

Dizi üzerinde eşleyin.

¬

Her dizeyi tek tek karakter dizisine bölün.

®

Dizi üzerinde eşleyin.

n

Tamsayıya dönüştür.

Oktav , 54 bayt

@(x)cellfun(@(c){c-48},strsplit(num2str(x),{'-' '.'}))

Sayıyı girdi olarak alan ve sayısal vektörlerin hücre dizisini üreten anonim işlev.

Çevrimiçi deneyin!

açıklama

@(x)cellfun(@(c){c-48},strsplit(num2str(x),{'-' '.'}))

@(x)                                                    % Function with input x
                                num2str(x)              % Convert x to string
                       strsplit(          ,{'-' '.'})   % Split at '-' or '.'. Gives a
                                                        % cell array of substrings
    cellfun(          ,                               ) % To each substring apply
                                                        % the following function
            @(c){c-48}                                  % Subtract 48 from each char
                                                        % and pack into a cell

C (GCC) , 170 164 152 146 144 bayt

Bu biraz golf mümkün olmalıdır ...

#define P printf
#define V *v[1]
main(c,v)char**v;{for(V^45?P("[[%c",V++):P("[[],[%c",V++,V++);V;V^46?P(",%c",V++):P("],[%c",V++,V++));P("]]");}

Çevrimiçi deneyin!

Jöle , 12 bayt

ŒṘ⁾-.yṣ”.V€€

Çevrimiçi deneyin!

Aslında 16 bayt

$'.'-(Æ'.@s⌠♂≈⌡M

Çevrimiçi deneyin!

Açıklama:

$'.'-(Æ'.@s⌠♂≈⌡M Implicit eval'd input
$                Convert to str
 '.              Push '.'
   '-            Push '-'
     (           Rotate stack left
      Æ          Pop a, b, c; push c.replace(b, a)
       '.        Push '.'
         @       Pop a, b; push b, a (swap)
          ⌠♂≈⌡   Push function ♂≈
           ♂       Map
            ≈        Convert to int
              M  Map

R, 51 47 72 bayt

x=RG::s(strtoi(s(gsub('-','.',scan()),on='\\.')))
x[is.na(x)]=list(NULL)

RGKütüphaneyi çok seviyorum .

Boş listenin gerçekten boş olduğundan emin olmak için 26 bayt eklemek zorunda kaldım.

               gsub('-','.',scan())             # replace - with . in input; also converts to string
             s(                    ,on='\\.')   # split string on '.'
      strtoi(                                )  # convert to numeric
RG::s(                                        ) # convert to lists of digits

    x[is.na(x)]=list(NULL)                      # converts list of `NA` to empty list

Örnek çıktı:

> x=RG::s(strtoi(s(gsub('-','.',-123.45),on='\\.')))
> x[is.na(x)]=list(NULL)
> x
[[1]]
NULL

[[2]]
[1] 1 2 3

[[3]]
[1] 4 5

Perl 5 , 56 54 + 1 (-p) = 55 bayt

$_="[[$_]]";s/\D\K\./0./;s/\d(?=\d)/$&,/g;s/-|\./],[/g

Çevrimiçi deneyin!

Bana $ hakkında hatırlatan iki bayt kaydedildi &

Açıklama:

$_="[[$_]]";        # Add opening and closing to ends of strings
s/\D\K\./0./;       # handle the case of .45 or -.45 by inserting 0 before
                    # the decimal.  Otherwise, .45 & 45 would be ambiguous.
s/\d(?=\d)/$&,/g;   # Put a comma between numbers.
s/-|\./],[/g        # Turn - and . into separators between lists

Perl 6 , 23 bayt

+«*.split(/\D/)».comb

Dene

Expanded

+«\            # numify each of the following (possibly in parallel)
*\             # WhateverCode lambda (this is the input)
.split(/\D/)\  # split on non-digits ( . and - )
».comb         # split each of those into individual characters

Bundan …».combdaha yüksek bir öncelik olduğunu unutmayın+«…

Python 2 , 59 bayt

lambda x:(x<0)*[[]]+[map(int,i)for i in`abs(x)`.split('.')]

Çevrimiçi deneyin!

CJam , 13 bayt

r'-'.er'./::~

Çevrimiçi deneyin!

Pyth, 12 bayt

sMMcXz\-\.\.

Burada deneyin.

Perl 6 , 22 bayt

{m:g/^\d*|\d+/».comb}

Çevrimiçi deneyin!

Döndürülen listedeki öğeler dizgidir, ancak Perl için normal olduğu gibi, sayı olarak kullanılabilirler ve örtük olarak dönüştürülürler; tüm pratik amaçlar için "gerçek sayılar" dır. Onları en yakın gösterimlerinde sayı olmaya zorlamak için, kod bloğunun içeriğine yalnızca üç bayt için "+« "öneki eklenmesi gerekir.

YAKUT, 75 bayt

->(x){(x<0?[[]]:[])+x.abs.to_s.split('.').map{|y|y.chars.map{|z|z.to_i}}}

Çevrimiçi deneyin!