Code Golf Stack Exchange

2

Visualize a large int

Poetic, 485 bytes honestly i lived my life i faced a boatload of brutal challenges i desire a day of bliss-i want badly to forget a day where things backfire i desire a day-i covet a week-and of course i want solitude around everyone i desire a day-i crave a year-finding no faults i seem to create everyday i desire a day-i plead,i pray-for an answer i need,...

code-golf integer

answered 2 days ago

JosiahRyanW

1,4801 gold badge4 silver badges12 bronze badges

0

Visualize a large int

Forth (gforth), 84 bytes : f s" kMGT" bounds <# do 1000 /mod tuck if 0 # # # d. i c@ hold then loop 0 #s #> ; Try it online! A function that takes a number from the stack, and returns a string as (address, length) pair, which is the standard representation for a string in Forth. Produces lots of garbage under the returned string, and a few zeros on ...

code-golf integer

answered 2 days ago

Bubbler

7,03014 silver badges60 bronze badges

0

Visualize a large int

Haskell, 99 bytes f n=concatMap(\(a,b)->a++b)$reverse$zip(reverse<$>chunksOf 3(reverse$show n))(["","k","M","G","T"]) Try it online! The function f takes a number, converts it into a string and splits it backwards into chunks of 3 characters, e.g. reverse<$>chunksOf 3(reverse$show 1234) == ["234","1"] it then zips the list of chunks with ...

code-golf integer

answered Oct 17 at 11:37

Ackdari

1012 bronze badges

1

Inverse Colombian Function

Forth (gforth), 99 bytes : f >r 0 begin 1+ dup begin dup i < while dup 20 for 10 /mod >r + r> next + repeat i = until r> . ; Try it online! Largely similar to reffu's submission (106 bytes). The golfed parts are: Digit sum calculation (-6) Final cleanup (-1) by printing some garbage to stdout. (No problem because the result is returned on ...

code-golf sequence integer

answered Oct 16 at 10:05

Bubbler

7,03014 silver badges60 bronze badges

1

Visualize a large int

Perl 6, 39 bytes {flip [~] <<''k M G T>>Z~.flip.comb(3)} Try it online!

code-golf integer

answered Oct 15 at 13:51

nwellnhof

8,5801 gold badge13 silver badges30 bronze badges

2

Visualize a large int

JavaScript (Node.js), 55 bytes f=(n,i=0)=>n.replace(/.+(?=...)/,d=>f(d,i+1)+'kMGT'[i]) Try it online!

code-golf integer

answered Oct 15 at 10:02

tsh

11.7k1 gold badge18 silver badges61 bronze badges

1

Visualize a large int

Bash, 83 bytes a=('' k M G T) s= (($1>99))&&s=${1: -3} echo `$0 ${1:0:-3} $[$2+1]`${s:-$1}${a[$2]} Try it online! (link shows 82 bytes, but uses function recursion instead of $0-recursion) Nice little recursive solution. Bash doesn't like invalid string indexing, which both helps (gives us our exit condition for free) and hurts (we have to ...

code-golf integer

answered Oct 15 at 8:22

GammaFunction

1,8883 silver badges16 bronze badges

0

Visualize a large int

Zsh, 53 bytes a=kMGT for z y x (${(Oas::)1})s=$x$y$z$a[i++]$s <<<$s Try it online! (s::) splits the stirng, Oa reverses the characters. Zsh arrays and strings are 1-indexed, so $a[0] on the first iteration substitutes nothing.

code-golf integer

answered Oct 15 at 8:17

GammaFunction

1,8883 silver badges16 bronze badges

1

Visualize a large int

C (clang), 65 62 bytes f(char*n,z){for(;z--;z%3||printf(L" kMGT"+z/3))putchar(*n++);} Try it online! Taking a char array as input. Saved 3 thanks to @ceilingcat C (clang), 68 bytes f(n,s){!s|n&&f(n/10,s+1)+printf(s%3?"%d":"%d%c",n%10," kMGT"[s/3]);} Try it online! Taking an int as input Recursive function which first call itself and ...

code-golf integer

answered Oct 13 at 0:02

AZTECCO

7471 silver badge14 bronze badges

4

Visualize a large int

Brachylog, 17 bytes ↔ġ₃;" kMGT"↔z₀cc↔ Input as a string, returns through output the result, with a trailing newline :) Explanation: More or less a translation of Jelly answer: ↔ Reverse input string ġ₃ Group into triples, excluding last group with length in range (0,3] ; Pair those groups with: " kMGT" A ...

code-golf integer

answered Oct 12 at 6:47

IFcoltransG

1915 bronze badges

4

Visualize a large int

Python 2, 57 bytes f=lambda s,p="":s and f(s[:-3],p[1:]+"kMGT")+s[-3:]+p[:1] Try it online! Takes input as a string. If the output may have a trailing space, we can avoid some workarounds and save 3 bytes. 54 bytes f=lambda s,p=" kMGT":s and f(s[:-3],p[1:])+s[-3:]+p[0] Try it online! One potentially-useful observation is that the string format '{:,}'....

code-golf integer

answered Oct 11 at 23:57

xnor

102k19 gold badges207 silver badges472 bronze badges

0

Visualize a large int

Python 2, 72 bytes f=lambda n,p=' kMGT':(n>M and f(n/M,p[1:])or'')+`n%M+M`[-3:]+p[0] M=1000 Try it online!

code-golf integer

answered Oct 11 at 20:21

Chas Brown

6,8641 gold badge6 silver badges27 bronze badges

0

Visualize a large int

Retina 0.8.2, 31 bytes r`\B... ,$.'$& T`9630,`TGMk_`,. Try it online! Explanation: r`\B... Match groups of three digits starting from the end but ensure that there is at least one more digit before the match. ,$.'$& Prefix each match with a marker comma and the number of digits after the match (0 for the last match, then 3, 6 and 9 respectively)...

code-golf integer

answered Oct 11 at 19:54

Neil

90.2k8 gold badges46 silver badges190 bronze badges

3

Visualize a large int

Jelly, 14 bytes 13 if input formatted as a string is acceptable for languages which can handle large integers (remove Ṿ and quote the argument) ṾṚs3żFtṚʋ“kMGT A full program accepting the non-negative number as a command line argument which prints the result Try it online! How? ṾṚs3żFtṚʋ“kMGT - Main Link: integer e.g. 12345 Ṿ - un-...

code-golf integer

answered Oct 11 at 17:42

Jonathan Allan

61.9k5 gold badges44 silver badges188 bronze badges

1

Visualize a large int

Gema, 88 characters \A=@subst{?=\@push\{p\;?\};TGMk } *=@reverse{@subst{<d3>=\$p\$1\@pop\{p\};@reverse{$0}}} Boring double reverse approach, but looping in Gema would be painfully long. Sample run: bash-5.0$ echo -n '1234567890' | gema '\A=@subst{?=\@push\{p\;?\};TGMk };*=@reverse{@subst{<d3>=\$p\$1\@pop\{p\};@reverse{$0}}}' 1G234M567k890 ...

code-golf integer

answered Oct 11 at 15:12

manatwork

17k4 gold badges39 silver badges73 bronze badges

0

Visualize a large int

JavaScript (V8), 71 bytes Takes input as number b=(a,l=10e11,x=0,c=a/l|0)=>(l-1)?(c?c+'TGMk'[x]:'')+b(a%l,l/1000,x+1):c Try it online!

code-golf integer

answered Oct 11 at 14:33

RetekBacsi

1

Visualize a large int

PowerShell, 81 73 71 69 64 bytes ($a=$args)|%{$r=$a[--$i]+' kMGT'[$j+5*!$k]+$r;$j+=$k=!($i%3)} $r Try it online! Takes argument as a splatted string.

code-golf integer

answered Oct 11 at 14:11

mazzy

4,0821 gold badge5 silver badges21 bronze badges

0

Visualize a large int

Python 2, 84 74 bytes i=input();o="" for x in"kMGT ":o=(i,x+i[-3:])[len(i)>3]+o;i=i[:-3] print o Try it online! Previous version for 84 bytes i=input()[::-1];o="" for x in"kMGT ":o+=(i,i[0:3]+x)[len(i)>3];i=i[3:] print o[::-1] Try it online! Reverse the input Step through backwards in threes appending prepending the next letter Reverse and print ...

code-golf integer

answered Oct 11 at 13:05

ElPedro

4,08813 silver badges28 bronze badges

1

Visualize a large int

APL+WIN, 46 bytes Prompts for integer as a string ∊(n/m),¨(n←3>+/¨' '=¨m←((3/⍳5)⊂¯15↑⎕))/'TGMk ' Try it online! Courtesy of Dyalog Classic

code-golf integer

answered Oct 11 at 12:48

Graham

2,9767 silver badges8 bronze badges

2

Visualize a large int

Icon, 76 71 bytes procedure f(s) k:=0 s[i:=*s-2to 2by-3:i]:="kMGT"[k+:=1]&\z return s end Try it online! Takes input as a string.

code-golf integer

answered Oct 11 at 12:30

Galen Ivanov

10.1k1 gold badge14 silver badges41 bronze badges

3

Visualize a large int

Perl 5 (-p), 40 bytes y/ kMG/kMGT/while s/\d\K((\d{3})+$)/ $1/ Try it online!

code-golf integer

answered Oct 11 at 12:01

Grimy

9,21719 silver badges42 bronze badges

2

Visualize a large int

PHP, 67 65 bytes for(;''<$d=$argn[-++$i];)$r=$d.' kMGT'[$i%3==1?$i/3:5].$r;echo$r; Try it online! Loops on input digits from right to left and concatenates each digit to $r variable in reversed order. When we are on 4th, 7th, etc... digit, the respective prefix is concatenated to $r as well. Output has a trailing space. for(;''<$d=$argn[-++$i];) // ...

code-golf integer

answered Oct 11 at 12:01

Night2

4,2665 silver badges29 bronze badges

9

Visualize a large int

JavaScript (ES6), 64 bytes Takes input as a string. f=(n,i=0,[d,t]=n.split(/(...)$/))=>t?f(d,i+1)+['kMGT'[d&&i]]+t:d Try it online! How? The regular expression /(...)/$ matches the last three digits of the integer, or nothing at all if there are less than 3 digits remaining. Because there's a capturing group, these digits -- if present -- ...

code-golf integer

answered Oct 11 at 11:19

Arnauld

95.9k7 gold badges114 silver badges386 bronze badges

1

Visualize a large int

Red, 85 bytes func[n][p: copy"kMGT"parse reverse n[any[3 skip ahead skip insert(take p)]]reverse n] Try it online! Takes the input as a string.

code-golf integer

answered Oct 11 at 11:05

Galen Ivanov

10.1k1 gold badge14 silver badges41 bronze badges

4

Visualize a large int

05AB1E, 15 14 bytes R3ô"kMGTP"øSR¦ Try it online! Thanks to Kevin Cruijssen for -1 byte R reverse input 3ô split it into groups of 3 digits "kMGTP" push the prefixes ø zip the groups of numbers with them S split to a list of characters R reverse again ¦ drop the first element implicitly print

code-golf integer

answered Oct 11 at 10:51

Dorian

1,3214 silver badges8 bronze badges

0

Visualize a large int

Python3, 89 83 bytes 65 chars (or 65 bytes, if you use just ASCII, but I fancy the Unicode superscript small letters) f=lambda n,p='ᵏᴹᴳᵀ':len(n)<4 and n or f(n[:-3],p[1:])+p[0]+n[-3:] Try it online! Python3, 89 bytes: import re;print(''.join(sum(zip(re.findall('..?.?',str(x)[::-1]),'kMGT.'),()))[::-1][1:]) Try it online! I didn't try to shorten ...

code-golf integer

answered Oct 11 at 10:43

Alfe

1971 silver badge7 bronze badges

1

Determine the Winner of a Game of Australian Football

Whitespace, 101 bytes (Lots of whitespace) Try it online! readable version: lstl call readint sssttsl push 6 tssl mult lstl call readint tsss add lstl call readint sssttsl push 6 tssl mult lstl call readint tsss add tsst sub sssl push 0 slt swap lttsl jn otherteam ...

Tag Info

New answers tagged integer

Related Tags