プログラミングのお題スレ Part13

プログラミングのお題スレ Part13at TECH

プログラミングのお題スレ Part13 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

1015:デフォルトの名無しさん
 19/05/18 15:57:05.04 0itJzGag.net
ハローワールドなら任せて欲しい

1016:デフォルトの名無しさん
 19/05/18 16:05:30.57 5ij/PJHb.net
>>993 octave 
https://ideone.com/V5luwe

1017:デフォルトの名無しさん
 19/05/18 16:32:58.07 BaKYgAyw.net
>>995 
任せた。

1018:デフォルトの名無しさん
 19/05/18 17:19:27.10 4C+see96.net
>>995 
はよ次スレをハローワールドしろや

1019:デフォルトの名無しさん
 19/05/18 17:34:28.08 BWmpW4IF.net
>>995 C89 
https://ideone.com/IJb1ar

1020:デフォルトの名無しさん
 19/05/18 17:35:58.58 BWmpW4IF.net
>>998 次スレ 
https://mevius.5ch.net/test/read.cgi/tech/1558168409/

1021:デフォルトの名無しさん
 19/05/18 17:56:26.22 4C+see96.net
>>1000 
乙。

1022:デフォルトの名無しさん
 19/05/18 21:05:17.15 sChpoVCN.net
>>993 Pharo/Squeak Smalltalk 
| fn | 
fn := [:n | 
| m bag | 
m := n. 
bag := Bag new. 
Integer primesUpTo: n sqrt + 1 do: [:prime | 
[m isDivisibleBy: prime] whileTrue: [m := m / (bag add: prime)] 
]. 
m > 1 ifTrue: [bag add: m]. 
String streamContents: [:ss | 
bag valuesAndCounts associations sort do: [:assoc | 
ss nextPutAll: assoc key asString. 
assoc value > 1 ifTrue: [ss nextPutAll: '^', assoc value asString] 
] separatedBy: [ss nextPut: $*] 
] 
]. 
fn value: 28. "=> '2^2*7' " 
fn value: 2002. "=> '2*7*11*13' " 
fn value: 216653. "=> '216653' "

次ページ