กำหนดจำนวนจริงให้แปลงเป็นรายการโดยมีเครื่องหมายลบ (ถ้ามี) กลายเป็นรายการว่างส่วนจำนวนเต็มกลายเป็นรายการของตัวเลขและส่วนที่เป็นเศษส่วน (ถ้ามี) กลายเป็นรายการของตัวเลข ตัวเลขต้องเป็นตัวเลขจริงไม่ใช่สตริง

ตัวอย่าง

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 ไบต์

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

ลองออนไลน์!

JavaScript (ES6), 33 44 43 41 ไบต์

รับอินพุตเป็นสตริง เสียสละ11 10 ไบต์แปลงองค์ประกอบในผลลัพธ์เป็นตัวเลขหลังจากข้อมูลจำเพาะของความท้าทายได้รับการอัพเดต

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

• บันทึกขอบคุณไบต์Arnauldevalข้อเสนอแนะของการใช้

ทดสอบมัน

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

คำอธิบาย

s=>

sฟังก์ชั่นที่ไม่ระบุชื่อการสตริงเป็นอาร์กิวเมนต์ผ่านพารามิเตอร์
"-123.45"

s.split(/\D/)

ใช้ RegEx เพื่อแยกสตริงเป็นอาร์เรย์ในอักขระที่ไม่ใช่ตัวเลขทั้งหมด - เช่น-และ.
["","123","45"]

.map(a=>)

aแผนที่มากกว่าอาร์เรย์ผ่านแต่ละสายฟังก์ชั่นผ่านทางพารามิเตอร์

[...a]

แยกเป็นอาร์เรย์ของสตริงอักขระแต่ละตัว
[[],["1","2","3"],["4","5"]]

.map(eval)

แม็พเหนือ subarray และevalแต่ละสตริงซึ่งแปลงเป็นจำนวนเต็ม
[[],[1,2,3],[4,5]]

Python 2 , 58 ไบต์

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

ลองออนไลน์!

เยลลี่ ,  13  10 ไบต์

ŒṘµ<”/œpV€

ลิงก์ monadic ที่ใช้ตัวเลขและส่งคืนรายการผลลัพธ์ของตัวเลข

ลองออนไลน์! (ส่วนท้ายเพียงแค่พิมพ์ตัวแทนหลามที่จะแสดงทุกรายการที่เกิดขึ้นจริง)
... หรือดูชุดทดสอบ

อย่างไร?

ŒṘµ<”/œ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 ไบต์

ขอบคุณRileyสำหรับการบันทึกไบต์ รหัส:

'-'.:'.¡εSï

ใช้การเข้ารหัส05AB1E ลองออนไลน์!

คำอธิบาย:

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

Python 2 , 59 ไบต์

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

ลองออนไลน์!

-5 ไบต์จาก Felipe Nardi Batista

ที่จริงแล้ว 23 ไบต์

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

ลองออนไลน์!

คำอธิบาย:

'.@;)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 ไบต์

Ζ-.ŗ .Θ⌡č¹r

ลองที่นี่!

ส่งออกไปที่ด้านบนของสแต็ก (เพราะ SOGL แปลงเป็นสตริงหลายบรรทัดเพราะสร้างขึ้นเพื่อ ASCII-art) หากต้องการดูผลลัพธ์ให้ดูในคอนโซลหลัง`r`@10:(วงเล็บด้านนอกเป็นอาร์เรย์อาร์เรย์) หรือเพียงต่อท้ายοø∑โค้ด

Ζ-.ŗ         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 ไบต์

รับอินพุตเป็นสตริง

q\D ®¬®n

ทดสอบ ( -Qตั้งค่าสถานะเพื่อการสร้างภาพข้อมูลเท่านั้น)

• 2 ไบต์บันทึกขอบคุณที่จัสติน
• บันทึก 2 ไบต์ด้วย ETH

คำอธิบาย

Uการป้อนข้อมูลโดยนัยของสตริง

q\D

ใช้ RegEx เพื่อแยก ( q) ให้กับอาร์เรย์สำหรับอักขระที่ไม่ใช่ตัวเลขทั้งหมด

®

แผนที่เหนืออาร์เรย์

¬

แยกแต่ละสตริงเป็นอาร์เรย์ของอักขระแต่ละตัว

®

แผนที่เหนืออาร์เรย์

n

แปลงเป็นจำนวนเต็ม

อ็อกเทฟ 54 ไบต์

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

ฟังก์ชั่นไม่ระบุชื่อที่ใช้ตัวเลขเป็นอินพุตและสร้างอาร์เรย์เซลล์ของเวกเตอร์ตัวเลข

ลองออนไลน์!

คำอธิบาย

@(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 ไบต์

น่าจะลงสนามได้สักหน่อย ...

#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("]]");}

ลองออนไลน์!

เยลลี่ 12 ไบต์

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

ลองออนไลน์!

จริงแล้ว 16 ไบต์

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

ลองออนไลน์!

คำอธิบาย:

$'.'-(Æ'.@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 ไบต์

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

ฉันรักRGห้องสมุด

ต้องเพิ่ม 26 ไบต์เพื่อให้แน่ใจว่ารายการว่างเปล่าจริง ๆ แล้ว

               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

ตัวอย่างผลลัพธ์:

> 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 ไบต์

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

ลองออนไลน์!

บันทึกสองไบต์เนื่องจาก Dom เตือนฉันเกี่ยวกับ $ &

คำอธิบาย:

$_="[[$_]]";        # 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 ไบต์

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

ทดสอบมัน

ขยาย

+«\            # 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

โปรดทราบว่า…».combมีความสำคัญสูงกว่า+«…

Python 2 , 59 ไบต์

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

ลองออนไลน์!

CJam , 13 ไบต์

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

ลองออนไลน์!

Pyth, 12 ไบต์

sMMcXz\-\.\.

ลองที่นี่

Perl 6 , 22 ไบต์

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

ลองออนไลน์!

องค์ประกอบในรายการที่ส่งคืนเป็นสตริง แต่ตามปกติสำหรับ Perl พวกเขาสามารถใช้เป็นตัวเลขและจะถูกแปลงโดยปริยาย พวกเขาคือ "ตัวเลขจริง" เพื่อการใช้งานจริงทั้งหมด เพื่อบังคับให้พวกเขาเป็นตัวเลขในการเป็นตัวแทนในทันทีพวกเขาต้องการเพียงส่วนนำหน้าเนื้อหาของรหัสบล็อกด้วย "+ «" อีกสามไบต์

RUBY, 75 ไบต์

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

ลองออนไลน์!