Hvem har lært nok Java 8 til at kunne skrive ulæselig kode?

s = "Sunset glow on the horizon"
s2 = "".join([c for c in s.lower() if s.lower().count(c) == 1])
print(s2)

from collections import OrderedDict
s = "Sunset glow on the horizon"
d = OrderedDict()
for c in s.lower():
.   d[c] = d.get(c, 0) + 1
s2 = "".join([k for k, v in d.items() if v == 1])
print(s2)

#include <stdio.h>
#include <string.h>
#include <ctype.h>

int main()
{
const char *s = "Sunset glow on the horizon";
int frqs[26] = {0}; // 'z' - 'a' + 1 = 26
int len = strlen(s);

for (int i = 0; i < len; i++) {
char c = tolower(s[i]);
if (c >= 'a' && c <= 'z') {
frqs[c - 'a'] += 1;
}
}

for (int i = 0; i < len; i++) {
char c = tolower(s[i]);
if (c >= 'a' && c <= 'z' && frqs[c - 'a'] == 1) {
printf("%c", c);
frqs[c - 'a'] = 0;
}
}
printf("\n");
return 0;
}

let s = "Sunset glow on the horizon"

let s2 = String(s.lowercased().reduce(into: [Character: Int](), { $0[$1] = ($0[$1] ?? 0) + 1 }).filter { $0.value == 1 }.map { $0.key })

String s = "Sunset glow on the horizon";

String s2 = s.chars()
.mapToObj(c -> Character.toLowerCase((char)c))
.collect(Collectors.groupingBy(c -> c, LinkedHashMap::new, Collectors.counting()))
.entrySet()
.stream()
.filter(e -> e.getValue() == 1)
.map(e -> "" + e.getKey())
.collect(Collectors.joining());

System.out.println(s2); // uglwriz

String s = "Sunset glow on the horizon";
String s2 = s.replace(" ", "").toLowerCase().chars()
.boxed().collect(Collectors.groupingBy(c -> c, LinkedHashMap::new, Collectors.counting()))
.entrySet().stream().filter(e -> e.getValue() == 1)
.map(e -> Character.toString((int)e.getKey())).collect(Collectors.joining());
System.out.println(s2);

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <limits.h>

int main()
{
const char *s = "Sunset glow on the horizon";
int frqs[1 << CHAR_BIT] = { 0 };
int len = strlen(s);

for (int i = 0; i < len; i++) {
char c = tolower(s[i]);
if (c >= 'a' && c <= 'z') {
frqs[c] += 1;
}
}

for (int i = 0; i < len; i++) {
char c = tolower(s[i]);
if (c >= 'a' && c <= 'z' && frqs[c] == 1) {
printf("%c", c);
frqs[c] = 0;
}
}
printf("\n");
return 0;
}

arne_v (10) skrev:

Den kode spilder 230 bytes. Men ...

larsp (12) skrev:

arne_v (10) skrev:

Den kode spilder 230 bytes. Men ...

Den spilder 230 * sizeof(int) på en 8-bit char platform :)

larsp (12) skrev:

Ja, man kunne supportere extended code page på den måde, men det er jo ikke unicode og derfor lidt meningsløst...

larsp (12) skrev:

Det er jo et typisk alderdomstegn for C. Mangel på (nem) unicode support. Alle de andre løsninger listet her æder unicode til morgenmad, tænker jeg.

larsp (12) skrev:

Men, mon ikke C koden er den hurtigste af løsningerne indtil videre ;)

Claus Jørgensen (14) skrev:

Både Arne og migselv brugte chars() og ikke codepoints(), så det ville ikke virke med alle unicode characters.

arne_v (15) skrev:

Man kunne ret nemt lave den samme algoritme med wchar_t og dermed få unicode support.

#include <stdio.h>
#include <string.h>
#include <wctype.h>
#include <limits.h>

int main()
{
const wchar_t *s = L"Sunset glow on the horizon";
int frqs[sizeof(wchar_t) * (1 << CHAR_BIT)] = { 0 };
int len = wcslen(s);

for (int i = 0; i < len; i++) {
wchar_t c = towlower(s[i]);
if (iswalpha(c)) {
frqs[c] += 1;
}
}

for (int i = 0; i < len; i++) {
wchar_t c = towlower(s[i]);
if (iswalpha(c) && frqs[c] == 1) {
printf("%c", c);
frqs[c] = 0;
}
}
printf("\n");
return 0;
}

#include <locale.h>
#include <stddef.h>
#include <wchar.h>

setlocale(LC_ALL, "");

printf("%lc", c);

int frqs[1 << (sizeof(wchar_t) * CHAR_BIT)] = { 0 };

larsp (18) skrev:

setlocale(LC_ALL, "");

larsp (18) skrev:

Algoritmen falder iøvrigt ... fuldstændigt ... fra hinanden hvis man fikser denne linje:

int frqs[1 << (sizeof(wchar_t) * CHAR_BIT)] = { 0 };

wchar_t er 4 bytes bred hos mig, så vi snupper lige 2^32 fra stakken ...

arne_v (19) skrev:

Hvilken compiler/platform bruger 32 bit wchar_t?

printf("%ld\n", sizeof(wchar_t)); // printer: 4

larsp (20) skrev:

Det er en Ubuntu 22.04.3 med kernel: 5.15.0-79-generic x86_64, gcc: 11.4.0

wchar_t

which is an integer type whose range of values can represent distinct codes for all
members of the largest extended character set specified among the supported locales; the null character shall have the code value zero

larsp (24) skrev:

For at kunne følge med i C, i unicode, vil man være nød til at skrive et ret omstændeligt program, med risiko for alle mulige fejl,

larsp (24) skrev:

De andre onelinere herover er totalt ulæselige for mig, haha ... "{ $0[$1] = ($0[$1] ?? 0) + 1 }" what??

larsp (24) skrev:

Kan vi mon få en løsning i Rust :)

fn main() {
let s = "Sunset glow on the horizon";
let mut res = String::from("");
for c in s.to_lowercase().chars() {
if s.to_lowercase().matches(c).count() == 1 {
res.push(c)
}
}
println!("{}", res);
}

larsp (29) skrev:

#28 Meget ligefrem kode

larsp (29) skrev:

Ang. OrderedDict i Python, det er åbenbart ophøjet til krav at man kan forvente {} at bevare insertion order fra Python 3.7 og frem. Jeg synes stadig det er på sin plads at bede om OrderedDict eksplicit hvis man har brug for den egenskab.

program horfor
integer*4 ia(5)
integer*4 i
data (ia(i),i=1,5,2)/3*123/
data (ia(i),i=2,4,2)/2*456/
write(*,'(1x,5I4)') (ia(i),i=1,5)
end

dimension ia(5)
data (ia(i),i=1,5,2)/3*123/
data (ia(i),i=2,4,2)/2*456/
write(*,'(1x,5I4)') (ia(i),i=1,5)
end

arne_v (31) skrev:

#3

Et vigtigt element i Python løsningerne er hvad jeg kalder "den vandrette for løkke". Konstruktionen har sikkert et rigtigt navn i Python.

d = {k:v for k, v in iterable}

program arix(input,output);

type
r4 = -2..7;
e5 = (a,b,c,d,e,f,g,h,i,j);

var
a1 : array [1..10] of integer;
a2 : array [0..9] of integer;
a3 : array [-5..4] of integer;
a4 : array [r4] of integer;
a5 : array [e5] of integer;
ix1, ix2, ix3 : integer;
ix4 : r4;
ix5 : e5;

begin
for ix1 := lower(a1) to upper(a1) do begin
a1[ix1] := ix1 * ix1;
writeln(ix1, ' ', a1[ix1]);
end;
for ix2 := lower(a2) to upper(a2) do begin
a2[ix2] := ix2 * ix2;
writeln(ix2, ' ', a2[ix2]);
end;
for ix3 := lower(a3) to upper(a3) do begin
a3[ix3] := ix3 * ix3;
writeln(ix3, ' ', a3[ix3]);
end;
for ix4 := lower(a4) to upper(a4) do begin
a4[ix4] := ix4 * ix4;
writeln(ix4, ' ', a4[ix4]);
end;
for ix5 := lower(a5) to upper(a5) do begin
a5[ix5] := ord(ix5) * ord(ix5);
writeln(ix5, ' ', a5[ix5]);
end;
end.

>>> a = "123456789abcdefg"
>>> a[0:9]
'123456789'

larsp (39) skrev:

Pascal har godt nok mange features hvad angår arrays og deres indexes. Det er pudsigt at de nuværende populære sprog har valgt at droppe den slags fuldstændig. Vil man have funky indexes må man gribe fat i et dictionary eller map.

larsp (39) skrev:

e5 er vel en art enum?

larsp (39) skrev:

Det er så normalt i de moderne sprog at slutangivelsen er eksklusiv, f.eks. Python:

>>> a = "123456789abcdefg"
>>> a[0:9]
'123456789'

arne_v (43) skrev:

Der er jo 3 varianter af dette:

str.substr(startincl, endincl)
str.substr(startincl, endexcl)
str.substr(startincl, length)

program strix
character*5 s
s = 'ABCDE'
write(*,*) s(1:3)
write(*,*) s(2:4)
write(*,*) s(3:5)
end

s = 'ABCDE'
print(s[0:3])
print(s[1:4])
print(s[2:5])

public class Strix {
public static void main(String[] args) {
String s = "ABCDE";
System.out.println(s.substring(0, 3));
System.out.println(s.substring(1, 4));
System.out.println(s.substring(2, 5));
}
}

IDENTIFICATION DIVISION.
PROGRAM-ID.STRIX.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  S   PIC X(5) VALUE "ABCDE".
PROCEDURE DIVISION.
MAIN-PARAGRAPH.
DISPLAY S(1:3)
DISPLAY S(2:3)
DISPLAY S(3:3)
STOP RUN.

program strix(input, output);

var
s : string;

begin
s := 'ABCDE';
writeln(copy(s, 1, 3));
writeln(copy(s, 2, 3));
writeln(copy(s, 3, 3));
end.

#include <iostream>
#include <string>

using namespace std;

int main()
{
string s = "ABCDE";
cout << s.substr(0, 3) << endl;
cout << s.substr(1, 3) << endl;
cout << s.substr(2, 3) << endl;
return 0;
}

using System;

public class Strix
{
public static void Main(string[] args)
{
string s = "ABCDE";
Console.WriteLine(s.Substring(0, 3));
Console.WriteLine(s.Substring(1, 3));
Console.WriteLine(s.Substring(2, 3));
}
}

arne_v (43) skrev:

Der er jo 3 varianter af dette:

str.substr(startincl, endincl)
str.substr(startincl, endexcl)
str.substr(startincl, length)

Jeg kan faktisk bedst lide den tredie!

>>> a = "ABCDE"
>>> a[:-1], a[-1:]
('ABCD', 'E')

Claus Jørgensen (41) skrev:

Jeg synes personligt dette her er nemmere at forstå (Swift ranges):

0...9
0..<9

https://developer.apple.com/documentation/swift/ra...

larsp (45) skrev:

arne_v (43) skrev:

Der er jo 3 varianter af dette:

str.substr(startincl, endincl)
str.substr(startincl, endexcl)
str.substr(startincl, length)

Jeg kan faktisk bedst lide den tredie!

Python slices har nu nogle frække muligheder der er logiske i det der bruges anden variant. Blank betyder første eller sidste element, negativ betyder trukket fra enden:

>>> a = "ABCDE"
>>> a[:-1], a[-1:]
('ABCD', 'E')